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INFOSMATIE. 

De 6502 Kenner is een uitgave van de KIM 
Gebruikersclub Nederland. Deze vereniging 
is volledig onaf hankelijk, is statutair 
opgericht en ingeschreven bij de Kamer van 
Koophandel en Fabrieken voor Hollands 
Noorderkwartier te Alkmaar, onder nummer 
634305. 

Het doel van de vereniging is het bevorde- 
ren van de kennisu i t wi s se ling tussen 
gebruikers van computers die zijn opge- 
bouwd rond een microprocessor uit de 6500- 
familie. Voorbeelden hiervan zijn onder 
andere: Elektuur EC-65, Commodore 64, 
Apple ][, Elektuur Junior, Atari 600 en 
800. 

De eerder genoemde kennisuitwisseling komt 
onder andere tot stand door 6 maal per 
jaar de 6502 Kenner te publiceren, door de 
organisatie van landelijke bi j eenkomsten 
voor de leden, het instandhouden van een 
sof t warebibliotheek op cassette, floppy 
disk en papier en het beschikbaar stellen 
van een Bulletin Board. 

Landelijke bljeenkomsten: 

Deze worden gehouden op bij voorkeur de 
derde zaterdag van de maanden januari, 
maart, mei, September en november. De 
exacte plaats en datum worden steeds in de 
6502 Kenner bekend gemaakt in de rubriek 
Uitnodiging . 

Bulletin Board: 

Voor het uitwisselen van mededelingen, het 
stellen en beantwoorden van vragen en de 
verspreiding van software wordt er door de 
vereniging een Bulletin Board beschikbaar 
gesteld. Dit Bulletin Board valt onder de 
ve r ant woor de 1 i j khe i d van een van de 
bestuur sleden en wordt bediend door een 
zgn. Sysop. 

Software Bibllotheek: 

Voor het beheer van de Software Bibllo- 
theek streeft het bestuur er naar zgn. 
Software Coordinators te benoemen. Hierbij 
wordt gedacht aan een drietal cobrdina- 
tors; ^ voor EC-65(K) en Junior met OHIO 
DOS-65D, een voor DOS-65 en een voor 
diverse andere systemen zoals onder andere 
Elektuur Junior. 

Het Bestuur: 

Het bestuur van de vereniging wordt ge- 
vormd door een dagelijks bestuur bestaande 
uit een voorzitter, een secretaris en een 



penningmeester en een viertal gewone leden. 

Voorzitter : 
Rinus Vleesch Dubois 
Emiliano Zapataplein 2 
2033 CB HAARLEM 
Telefoon 023-330993 

Secretaris : 
Gert Klein 
Diedenweg 119 
6706 CM WAGENINGEN 
Telefoon 08370-23646 

Penningmeester : 
John van Sprang 
Tulp 71 

2925 EW KRIMPEN A/D IJSSEL 
Leden: 

Adri Hankel (Bulletin Board) 

Willem Kloosstraat 32 
7606 BB ALMELO 
Telefoon 05490-51151 

Erwin Visschedijk 
Dillelaan 11 
7641 CX WIERDEN 
Telefoon: 05496-76764 

Gert van Opbroek (Redactie 6502 Kenner) 

Bateweg 60 

2481 AN WOUBRUGGE 

Telefoon 01729-8636 

Nico de Vries 
Mari Andriessenrade 49 
2907 MA CAPELLE A/D IJSSEL 
Telefoon 010-4517154 

Ereleden: 

Naast het bestuur zijn er een aantal ere- 
leden, die zich in het verleden bijzonder 
ve r d i en s t e 1 i j k voor de club hebben 
gemaakt : 

Erevoorzitter : 

Siep de Vries 
Ereleden: 

Mevr. H. de Vries van der Winden 
Anton Mueller 
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De 6502 Kenner: 

De 6502 Kenner wordt bij 
verschijnen gratis toege- 
zonden aan alle leden van 
de KIM Gebruikersclub 
Nederland. De kopij voor 
het blad dient bij voor- 
keur van de leden afkom- 
stig te zijn. Alle kopij 
wordt door de redactie op 
bruikbaarheid en publica- 
tiewaarde beoordeeld. Deze 
twee criteria, in samen- 
hang met de actualiteit, 
bepalen '&f ea see., |a 
wanneer het stuk gepubll- 
ceerd wordt. De redactie 
streeft er naar de kopij 
zoveel mogelijk in zijn 
oorspronkeli jke vorm te 
plaatsen, Nederlandstallge 
kopij wordt daarom in 
principe niet naar een 
andere taal vertaald. De 
redactie streeft er naar 
een Nederlandstalig blad 
te maken doch het staat de 
auteur vrij een artikel 
geheel of gedeeltelijk In 
een andere taal te schrij- 
ven. 

Helaas kan de redactie, 
, ^qch het bestuur, enige 
aansprakelijkheld aanvaar- 

den voor de toepassing(en) 
van de g e pub 1 i c e e r de 
ktoplj . 

Verschijningsdata: 

De 6502 Kenner verschijnt 
op de derde zaterdag van 
de maanden februari, 
april, juni, augttstus, 
oktober en december* 

Bedactle . 

De redactie wordt momen- 
tefls ^eyormd door: 
©ert vaa ©pbroefc 

Correspondenten: 

Jacques Banser (Sysi^) 

Bram de Bruine 

Antoine Megens 

Nico de Vries 

Rinus Vleesch Stills 

Redactieadres: 
Gert van Opbroek 
Bateweg 60 
2481 AN tfoubrugge 
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Kedactloneel 

In het oktobe mummer staat altijd de uit- 
nodlgittg veoif de ledetivergaderlttg van 
november. Ook dlt jaar Is dat zo. Ik hoop 
van harte dat de ledenvergadering toch wat 
rustiger verloopt als vorig jaar. Mensen 
die vorig jaar al lid waren, zullen zich 
nog wel kunnen herinne'reii wsk er allemaal 
gebeurd is. Ik hoop van ganser harte dat 
dergelljke zaken voorlopig niet meer voor 
zullen komen. Toch wordt de komende leden- 
vergadering voor de club heel belangrijk. 
Ik denk zelfs dat het voortbestaan van de 
club afhangt van de komende ledenvergade- 
ring. let feestotit" wll naiaelljlt een IttgrlJi- 
pende beleldswi j ziglng voorstellen. We 
willen, als club, processor-onaf hankeli jk 
worden. Om dat te mogen, hebben we de 
toestemming van de leden nodig. In prin- 
cipe moeten zelfs de statuten gewijzlgd 
worden. Dat gaan we niet nu doen, maar als 
de leden de beleldswijziging ook zien 
z it ten gaan we daar volgend jaar nt^X awQ 
werken. 

Als Qnderdeel van het nleuwe beleld meet 
ook de naam van het blad gewljzlgd worden. 

Tenslotte suggereert de naam dat de lezers 
alles van de 6502 afweten en dat hoeft 
niet. Ik zie het als de taak van de redac- 
tle In november met een voorstel te komen. 
Ik deEk ittat al een tijdje over na maar 
heb nog nlets echt pakkends g®v<m4»Il« 
Misschien dat er mensen zijn die wel een 
goed idee hebben, laat die mij dan eens 
helpen. Ik ben namelijk van plan per j a- 
nuari 1989 een nieuwe naam voor het blad 
te februiktRs P« Raam van de club zie Ik 
1 OS van de tiaffltt Van het blad. Als de naam 
van de club gewijzigd wordt, dan gebeurt 
dit Samen met de wijziging van de statu- 
ten. 

Nu ik het toch ove* ie vergadering heb, ik 
moet dit jaar, volgens schema aftreden. Ik 
heb nu drie jaar in het bestuur gezeten 
waarvan het laatste jaar als redactie- 
secretaris. Toch heb ik nog niet de be- 
hoefte; t« stoppen met deze ft«nctie. Ik Mte 
beslot«il« al@ ,M leden daax wme lnsteameii» 
nog twee jatf t'idactieseci'etarig te bllj— 
ven. Ik heb namelijk nog een aantal idee&i 
die ik uit wil voeren. Vandaar dat ik me 
herkiesbaar gesteld heb. 

Twee van de ideein ztilt u in dit nummer al 
tegenkomen. Ik ben begonnen met een serif 
over get alien en ik heb de rubriek MS-DOS 
Corner gestart. Van het eerste heb ik een 
beetje verstand, van het tweede helemaal 
niet. Toch denk ik dat het zinvol Is een 
vaste plaats voor MS-DOS in te ruimen. Ik 
hoop dat u mee wilt werken deze rubriek te 



vullen. Natuurlijk hebben de leden met een 
Atari of wat dan ook ook recht op een 
eigen rubriek. Zo gauw er kopij voor deze 
systemen aanwezlg is, wordt deze rubriek 
gestart. Daar MS-DOS tot voor kort binnen 
de club gediscrimineerd werd, ben ik van 
mening dat we wel lets extra's voor deze 
systemen mogen doen, vandaar de MS-DOS 
Comer in dlt nummer* 

Verder vlndt ik het jammer dat er in dlt 

nummer geen %ljdrage over hogere program- 
meertalen is. Dlt wordt echter veroorzaakt 
door het feit dat mijn floppies zo langza- 
merhand uitgeput zijn en Ik eigenlijk ook 
de tljd niet heb speclaal voor een af leve- 
ring van de 6502 Kenner een programma te 
schrijven. Bovendien had ik geen inspira- 
tle. Mlsschiem ie y®4#iriMl<i 'hmw l>«i#4i« 

Van Antoine Megens Ifbt'It in dlt nummer 
deel 2 van de game library geplaatst. De 
gepubllceerde versie is in assembler. De 
auteur heef t echter niet stil gezeten en 
de game library ook in DOS-65 small C 
vertaald. Ook bouncing babies is ook in 
deze C beschlkbaar. Al deze programmatuur 
stmsA.op het Bulletin Board dat u bljna 24 
wat per dag kunt berelken onder nummert 

053-303902 

Ook voor mensen met andere systemen is het 
bulletin board latere ss ant. Er ziln o*a. 
file-areas voof^ Atari, Amiga, MS-lyCJS en 
speclaal voor communicatie. Het is zeker 
de moeite waard eens rond te neuzen en 
laat, als u ingelogd bent eens een be- 
richtje voor de sysop Jacques Banser of uw 
redacteur Gert van Opbroek aehter. Ik kljk 
meestal eens per week even wat er op het 
BBS staat zodat ik uw bericht zeker zal 
lezen. 

Tenslotte nog een vraag. Ik denk dat het 
goed Is, dat er leJiatid komt die zich ac- 
tief bezig gaat hotideh met ledehWerving. 

Ik ben namelijk van mening dat het moge- 
lijk moet zijn door wat meer aandacht aan 
de ledenwerving te besteden het ledental 
weer wat op te vijzelen. Zekei^ slX^ we ook 
de andere systemen in de eltl%*'teMfenl*lieft, 
ligt er een groot potentieel aan ledett. 
Wie wil zich daar eens mee bezig gaan 
houden? Indien u interesse hebt, kunt u 
contact opnemen met een van de bestuur sle- 
den. Tenslotte moet het 10#c mogelljk zijn 
pakweg 500 mensen voor cmze club en of ons 
blad te interesseren. 

Verder veel plezier met uw hobby en even- 
tueel tot zlens in Almelo. 

0ert v£ni Oplfroek 
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Ultnojttjglng voor de clubbl j eenkomst 

Dat»tm! Zaterdag 19 november 1988 
tftcatle: Wljkcentrum *t Veurbook 

Jan Tooropstraat 27 
7606 Almelo 
Tel.: 05490 - 10353 ^ 

Bl j z . : Algemene ledem^xgMfi^ing 
Toegang: Gratis 

Bootebesehrljvliig 

Van uit het westen en het zuiden (A1/A35): 

1. Aan het elnde van de snelweg rechtsaf . 
Bij het eerst^olgfettde kruispunt MKT VER- 

KEERSLICHTEN llnksaf, rlchting Wierden/ 
Zwolle. Bij de eerstvolgende verkeerslich- 
ten rechtdoor. Bij de volgende verkeers- 
lichten (links BP tankstation en Opel 
garage Kamp) gaat u rechtsaf. 

2. U rijdt nu op de Windmolenbroeksweg. 
Doorrljden tot over de brug, dan de eerste 
straat rechts. Dit is de W. van Konijnen- 
burgstraat. Na plm. 50 meter rechtsaf. Dit 
is de Tooropstraat. Met de bocht mee naat 
links. Na plm. 50 meter aan de rechter- 
k«mt: *■* few'tbrook. 



Van uit het noorden (via de N 36): 
1. Bij de stoplichten rechtsaf, richting 
streekziekenhuis. U bevindt zich nu op de 
roaidweg om Almelo. Deze weg blijven volgen 
tot u het BP taakstatlon zlet bij dit 
krui spunt linksa;f tie ii^- 'pm, f. 

Met openbaar vervoer: 

Vanaf NS-station Almelo met de stadsbus 
naar de wijk Molenbroek. Uitstappen blJ de 
hatlte WiteiiBi(6leiibr<)€iesw»i^. Sch«ilfe> feeg*ii«wer 
de bushalte staat een wegwijzef, daarop 
staat ook 't Veurbrook vermeld* 

Frogramma: ' 

9:30 Zaal open met koffie 
10:00 Opening en a«aiang algettetie 

ledenvergadetiug (agenda zie elders) 
12:30 Lunch, consumptles tegen betallng 
13:30 Forum en markt ' 

Aansltiltetfd het litf iE>i»l#l# ige«l<ieM# >tt«t de 
mogelijkheid om andermans systemen te 
bewonderen en Public Domain software uit 
te wisselen. Breng daarOM '®ok uv eigen 
systeem mee. 

17 :00 Sluiting 
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Agenda voor de algemene ledenvergaderlng » 
Datum: 19 november 1988 

1 : Opening ledenvergaderlng 

2: NQtuleii yaiL det laatste ledenvergaderlng 14 novenber 1987 

3j Doeistelilng van de club en beleidsplan 1989+ (zie toellehtlng) 

4: Concept-begroting 1989 

5: Verkiezing kascontrole-commissie 1988 (e€n lid), zie toelichting 

6: Verkiezing kascontrole-commissie 1989 

7: HuishoudelijH Reglement (zie toelichting) 

8: Komende '<m f ttande %«#ttttti;8l#dieti: 

a) Volgens rooster aftredend: 
Gert Klein (secretaris) 
Gert van Opbroek (reiiactie) 
Nico de Vries 

Deze personen zijn alien herkiesbaar 

b) Tussentijds aftredend en niet herkiesbaar: , . 
John van Sprang (Penningmeester) 

Erwin Visschedijk 

Voor de functie van penningmeester wordt Jacques Banser voorgedragen. 
Kandldaten voor de vacature Visschedijk kunnen zich uiterlijk voor aanvang van de 
•mcgsiexinfi schrii telijk bij| de voorzlttter melden. Tegenkandidaten voor de overige 
ftmetles dienen zlcli <fvi>ne€%8 9«^Xlfte|ljk uiterlijk voor aanvang van de vergaderlng 
bij de voorzitter te melden. Deze aanmeldlng di^lt vrnxg^mxeld. te gata^ iffm 4m. w-ouEidracliit 
van tenminste twee leden. 

9: Rondvraag 

10:Sluiting 

Toelichting 

ad. 3 

Het bestuur wil de doelstelling van de club wijzigen. In nr 57 van de 6502 Kenner heeft 
u een voorstel voor deze nieuwe doelstelling kunnen lezen. De omschrijving van de 
doelsteHiiig ea de verdere Invulllng worden op de vergaderlng aan de leden voorgelegd. 
ad. 5 

In de kascontrolecommlssie voor 1988 is een vacature ontstaan vanwege;J|fi^,',J6lt dat Coen 
Boltjes zijn lidmaatschap aanvang 1988 niet verlengd heeft. 
ad . 7 



u Bisschien nog weet, is op de ledenvergaderlng van november vorig jaar een 
coBjassxe in het leven geroepen die een Huishoudelijk Reglenent noest gaan 
S?^^^-^^'' verstreken, en de cxmiissie is thans iH de 

^Mi^JJI^^^H fef^^^ een concept te kunnen presenteren. Het bestaan van het 
r!^^S?Su^i^^f^*'KJ?°'^i door de Statuten van de vereniging voorgeschreven . Een 
dergelijk Reglenent is bedoeld on richtlijnen te verschaffen hoe beplalde artikelm 
uit de Statuten m de praktijk noeten worden uitgevoerd. Een voorbeeld hiervan is het 
stenmen bij vonnacht. 

concept in steming te brengen op de ledenvergadering van 
novenber aanstaande. In deze vergaderlng kunnen uiteraard ook wijzigingen worden 
voorgesteM en ingeyoerd. Mocht u op- of aaHnerkingen hebben op dit conSfrsXlif 
dan eens «i stuur ze naar Nico de Vries. De comissie zal dan bekij^ of ze in 

het thans voorgestelde Reglenent kunnen worden ingepast. 

«o?dJ^f J^fJ«f?f?^E''S! ^L"?^. °^ ^ gewijzi^ Reglenent, dan 

SS^^eirSuMii^" S!SMuisSSe'li\ ss^"?^ ^ ""^^ 

De GooBissie Huishoudeliok Reglenrait. 
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KIM GEBBUIKERSCLUB NEDERLAND 
HUISHOJDELIJK RB(H.EHraT (GQNCQT) 

1, 

ABTIKEL 1. BegripsoBBchrijvingen. 
In dit reglen^t wordt verstaan onder: 

"^HMW^igis^' De KIM GEBRUIKERSCLUB NEDERLAND, opgericht op de twee en WlUbig- 

ste juni negentianhondard acht en zeventig te Castrictm. 
"sfcaiotan" De statuten van de vereniging. 

"bestuur" Het bestuur van de vereniging zoals genoead in de statutien. 

"leden" De leden van de vereniging zoals omschreven in de stab^eii. 

" ledenvexgadering" Hetgeen daaronder woidt verstaan in de statuten. 

ARTIKEL 2. Doel en geldigheid. 

1. Dit reglen^t bevat nadere, voor de leden van de vereniging bindende bepalingen 
ter uitvoering van de statuten van de vereniging zoals bedoeld in artikel 16 van 

die statuten. 

2. Toetsing van dit reglesient aan de statuten, zoals liedia»M in xorttkel IS van de 
statuten is voorbehouden aan de ledenvergadering. i, •:. , > -r-.-.i.ti. ' ii 

lippil 3. ''iwlMi^ tk^^ lidBBatsi^ 

1. Indien enig natuurlijk persoon zich heeft genend tot het bestuur net het verzoek 
als l^d-^fi d^ ipe^sp^jging te worden toegel^;;^,, ^Vf^ aj. dan niet gedaan h^ibende 
op een m^ze als bepaald in artixel 4 van de statuten, wordt hen het 

liduaatschap niet dan schriftelijk en net opgave van reden geweigerd. Het 
bestuur draagt zorg dat zulk een weigering vergezeld gaat van een afschrift van 
artikel 4 van de statuten. 

2. E^ ieder die door het bestuur wordt toegelaten als lid, antvangt door de zorg 

van het bestuur de statuten en het huishoudelijk reglenent. 

3. Het bestuur neemt een verzoek tot toelating tot het liduaatschap niet in 
behandeling indien zulk een verzoek afkonstig is van enig persoon we Ike door de 
I^e{x«ffjP]^l^r^ is..qntzet uit het lidiiaatsch«iiiar(^t;it jsf^tjb, bed^M in artikel 8 
lid 4 im ai^iafcen. 

4. Het bestuur is bevoegd te verlangen dat de schriftelijke wens tot toelating als 
bedoeld in artikel 4 van de statuten plaats heeft op een wijze en in een vom 
zoals door het bestuur in het belang van een goede ledenadministratie wordt 
nodig geacht. In dat geval zal het bestuur zorg dragen dat de betrokken persoon 
in het bezit wordt gesteld van de daartoe benodigde adninistratieve niddelen. 

MSnJSSL 4. Toegang tot MdflO^Biii^sen. .... 

1. Toegang tot bijeenkonstai we Ike door de vereniging worden georganiseerd hebben: 

A. Zij die daar toegang hebben op grand van artikel 6 van de statuten, en 
bovendien: i ' . . , 

B. Zij die door het bestuur daar worden toegelaten. 

2, iteweniinderd het b^>aalde in artikel 5 tweede lid van de statuten, worden alle 
leiJen in de geleg^iheid gesteld aan een ledenvextpdering deel te nenen zonder 
dat hiertoe enige geldelijke vergoeding aan de vereniging verschuldlgd zal zijn. 

3 . Personen we Ike geen toegang tot de ledenvergadering hebb^, worden desondanks 
door het bestuur to^elaten tot dat deel van die ledenvergadering waarin enig 
beroep dat zij op grond van de statuten de led«ivergadering hebben gedaan, in 
die vergadering aan de orde zal zijUj behoudens in die gevallen waarin naar het 
oordeel van het bestuur de asfmezi^^id van .de bet3?ayiene direoti^ ielwde :<101 de 
jr^ireniging kifn 

liilPPIL §. Qntzetting uit het lidnaat^hBp. 

1. Onverninderd het bepaalde in artikel 8 van de statuten zal het bestuur van een 
Qntzetting uit het lidnaatsohaf) eveneens kermis geven aan de ledenvexgaderii^. 
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V fi! XT in X ^ 1 n igr. 

mi^^udtit of bet betrokken lid al ^bm niet ^bruik naakfc van zljn recht ap bero^ 
op de ledenvergadering. Het bestuur draa^ zorg dat het betrokken lid al of niet 
ten overvloede, wordt gewezen op zijn recht van beroep op de ledenvergadering. 

2. Indi«i een lid hang^ide een procedure tot ontzetting uit het lidmaatschap te 
kennen geeft zijn lidnaatschap te willen beeirKligrai, wordt dat lid beschouwd als 
door het bestuur te zijn ontzet uit het lidnaatschap, onveminderd het recht van 
heroiBp op de Isdenvef^SBdmeixig. 

3. De kennisgeving als bedoeld in het eerste lid Aran dit artikel blijft achterwege 
indien de ontzetting uit het lidnaatschap uitsluitend werd gedaan wegens het 
niet voldoen van de verschuldigde contributie door een lid. Dezelfde ontzetting 
uit het lidiraatschap kan door het bestuur liorden beschouHd indien het betrokken 
lid binn^ naar het oordeel van het YiesbaBm sedelijte temijn alsnog aan zijn 
wB^lictit^ingen hee£t^ vo]<bm« 

4. Ontzetting uit het lidnaatschap van een lid dat deel uitnaakt van het besttxn* 
dan wel deel uitnaakt van een ccnmissie benoend door de ledenvergadering. Is 
voorbehouden aan de ledeiwiipidegixg. 



ARTIKEL 6. Werkwijze van het bestuur. 

1. Het bestuur draagt zorg dat de taken van tenninste de voorzitter, de secretaris 
en de penningneester, rekening houdend net het bepaalde in artikel 10 van de 
statute, schrif teXijk en ^noldQancle j^dqtaiXleerd jziom W^^^^^f^* ^sqiiiwiig dat 
duidelljkheid bea^mk mem 4m meimiim^^mii' imm^ imiimasmmKf '"mm mammn m 



2. ' Het bestuur zal trachben te ytxakemm liadk #i WKmm^sm^ ill f|g» VExiirMtter 

gelijktijdig aftreden. 

3. Het bestuur draagt zorg dat eigmdonnen van de vereniging als zodanig zijn 
eregistreerd , naar behoren zijn verzekerd tegen schade welke kan ontstaan door 
iefstal of brand of enig van buiten konend onheil en naar Nederlands recht zijn 

gevrijwaard van beslaglegging op grond van aanspraken door derden teglenover de 
personen die de goederen in beheer of bruikleen h^)b^. 

4. Het bestuur organiseert tenninste vijf naal per verenigingsjaar een bijeenkonst 
van de led«i en ten ninste twee naal per jaar een ledenvergadering. 
Ledmp^Sgad^ingoi kunnen woxden gehouden op dezelfde dag en op de dezelfde 
lociiile als &m bijeenkonst. 

5. Behoudens goedkeuring door de ledenvergadering en net inachtnening van die 

statuten en dit reglenent, zal het bestuur bevoeiga zijn al daLis0mB te linsll dat 
zij in het belang van de vereniging acht. 



iURTm. 7. De redactie vm het huisorgaan. 

1. Het bestuur wijst uit haar nidden tevens een bestuurslid aan dat uitsluitend is 
belast net de redactie en uitgifte van het huisorgaan van d@ yerepi^^^Liig, Deze 
besbjursfutictie draagt de naan "redactiesecretaris" . ' 

2. His naefaic^iiesecretaris benoent een connissie van leden bestaande uit zavBel 
personen als door hen wordt wenselljk geacht on hen behulpzaan te zijn bij zi^n 
taak. Deze connissie draagt de naan "redactiecannissie" . De redact iecnwni ssie 
wordt voorgezeten door de redactiesecretaris en kont zo vaak bijeen sttJli sSSij in 
het belang van de kwaliteit van het huisorgaan noodzakelijk acht. 

%. De redactiesecretaris als zodanig en de leden van de redact ieconnissie zijn niet 
bevoegd de vereniging op enigerlij wijze te vertegenfiooTdigien » -babaSKism- 
bevoegdheden door het bestuur hen verle«id. 

4- Onveminderd het gestelde in het eerste lid kan, indirai zulks naar het oordeel 
van het bestuur in het belang van de veraiiging is, het beheer van de 
bibllotheek zoals onschreven in artikel 10 derde lid oader A van de statuten 
m»den opgedragen aan de T0^mA,wmmmmtmei&., zulks net inachtnening -vtm het 
terzake bepaalde in artikel 8 van dit r^sgleaant. 



ARTIKEL 8. Beheer van de bibliotheek. 
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1. Het bjestuur draagt zBft^ dat aan de ledai g«ierlij geldelijke vergoeding woidt 
gevraagd ter verkrijging van verstrekkingen uit de bibliotheek. Hiervan 
uitgezonderd is een vergoeding we Ike slechts dient ter dekking van de 
daadw^kelia^ behoeim 'van zulk een vi^estrekking; antstane kosten. 

2. Onder "artikel" zoals genoend in artikel 7 van de statu ten dient te woxsten 
verstaan al datgene dat terzake van enig onderNerp aan de verenigliig ter 
beschikking wordt gesteld, ongeacht de vraog of de inlbpe^gjHr al niet^ se^^iM^ 
op het ingebrachte kan doen geld^. 

3. Het bestuur zal OEXiaiie van artikelen in de bibliotheek weigeren indien het haar 
bekend is dan wel een redelijk vemoeden bestaat dat net de inbreng van het 
artikel door de inbraiger enige handeling in strijd net de wet wordt verricht. 

4. Qnyeminderd het boiaaide in het derde lid draagt de inbrenger von enig artikel 
eSle verantwooxdeliokfeetii voor de oor^ronkelijkheid daarvan en inrijwaart hij de 
wmmiaixm vsn eUce ittRSpraak door derden ter^^ske aantapting lisri enig bestaand 
ootrooi, aeislauuiw iiatii»r«arecht . 



MfiKKL 9. Stealing &lj volnacht. < 

1. Een lid kan zich ter ledenvergadering doen vertegenwoordigen door elk ander lid 
dat ter vergadering stairecht bezit. Hij dient daartoe het lid dat hen zal 
vertegenwoord^en een schriftelijke volmcfat te verlenen, welke tenninste noet 
bevatten ; 

A. Naam, voorletters, volledig adres en handtekenii^ van het IM dat de 
voljnacht wenst te verlenen. 

B. NaoD, voorletters, en volledig adres van de geaBtchti^de. 

2. Een lid kan ter ledenvergadi^iz^ ni«t HEsear dmt een (1) wider lid 

yerte^enspooii^i^^.. , 

3. Eai lid dat door een ander lid is genachtigd stelt bij aanvang van de 
vergadering zijn volnacht ter hand aan het bestuur. Het bestuur naakt vervolgens 
alle aanwezige voLnachten als "ingekonen stuk" aan de ledeRi«e0ad^ailg bekend. 

4. In geschillen betreffende de geldigheid van een volmacht, beslist de 
ledenvergadering. Indien deze beslissing een steming A^reist, vindt deze plaats 
als steaaing cnmt lai^siMi. 

5. Steming bij volnacht is niet toegestaan teriogisa ^vaQ nijsiglng ^tn ^ statuten 
en/of ontbinding der vereniging. 



ABTIKEL 10. Inwerkingtreding en wijziging van dit reglenent. 

1. Dit huishoudelijk reglement treedt in werking onmiddelliok na goedkeuring door 
de ledenvergadering en zal word en gepubliceerd in de eerst volgende editie van 
het huisorgaan waarvan op het noaent van inwerkingtreding de redact ie nog niet 
is afgesloten. 

2. 1li,jziging van dit reglenent behoeft de ^ladkeuring van de ledenvergad^^i blj 
gewone neerder held van stennen . , 



mn.WL 11. (Met opzet opengelaten). 

li.B« ill lOrtlleaX bannt on het bestaan en tumAimmtm >mn mm 

ks^^ntrolecoad^ie te regSelen. 



AKFIKEL 12. Geschillen. 

In alle gevallen waarin dit haishoudelijk regleo^t niet voorziet beslist het 
bestuur^ behoudens goedkeuring door de ledenvergadering. ' 
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ii( » » « « « « ])i » « « « ]|( « « )i( « « « f tf t f f V 1 1 rt ttl 

#* VIDITEL-65 BINNENSTE BUITEN B. de Bruine * * 



I . Oe conf iQuratiepagitDA 



Viditel kent een con f iguratiepag ina ( Vid i te 1 . c f g ) die de waarden bevat om 
met ieder systeem volgens eigen wensen te kunnen werken. Hieronder staat de 
sourcelilltin© van deze file: 

)|t ]|{ ]|C^]|t^ )|t )|( ]|( ]|Cl|t]|t]|cy ^ 9|E. 1^ <^ l(t ]|c. 3|( ]|c 

; Program nam^t VICFG.mae 

5 Creat*it>rt ■ date's 12 f«b 1^® 

; Update: Seperated from vidi.mac 

;Version: V 3.0 

{Programmers Bram de Bruine 

; Hardware: DOS 65 

;Purposes Conf igurationvariables viditel-65 
•|;Progri«w ■dWReri.p'tifona 'A»ssiiibt''* this file with: 

I AS -bVIDITEL.cfg VICFG 

i 







;-Jumptable viditel- 




1000 


VIDl 


EQU 


*1000 ;Start address of viditel-65 




1003 


SEN2 


EQU 


$1003 ;Send A to modem, x destroyed 




1006 


PARPROG 


EQU 


*1006 {Program acia and modem 




i&m 


rBET 


'mu' 


*i009 {Get key from keyboard 




lOOC 


LAST I ME 


EQU 


*100C {Display time in statusline 




lOOF 


SHAST 


EQU 


$100F ;Transmit string to modem 




1012 


JMAIN 


EQU 


$1012 ;Jump common entry mainmenu 




1015 


aviTXT 


EQU 


$1015 {Printstring in viditel format 




101® 




mm 


*1018 {Test if breakkey is pressed 




0700 




ORG 


*0700 {configuration page $700-*7ff 


0700 




CFG 




; Hayes-strings 


0700 


0000000000 


HAYSTR 


FCC 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; Y=00 


0710 


0000000000 




FCC 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;Y=10 


0720 


0000000000 




FCC 


0,0,0,0,0,0,0,0,0,0,0^0,0,0,0,0 ; Y=20 


0730 


0000000000 




■pcc ■ 


d,#,0,O,O,0,d,0 {yasiSO 


0738 


4154413B0D 




FCC 


'ATA{\r' ,0,0,0 {y=38 






; Macro 


strings 




0740 


4B4C414E54 


MCI 


FCC 


' KLANTNUMMER_' ,0,0,0,0 { y=40 


0750 


434F44454E 


MC2 


FCC 


■ CODEMR . _' , 0 , 0 , 0 , 0 , 0 ,© j#,0 { Y=50 


0760 


5052495645 


MC3 


FCC 


' PRIVECODE_' ,0,0,0,0,0,0 ;Y=60 


0770 


4D616E792D 


MC4 


FCC 


■ Many-used-string ' {Y=70 


Q7@0 


OBOOOOOOOO 




wm 


* \ r ' , 0 , © » 0 »#» f , ^9 0,0,0 , 0 , 0 






{Notice 


s the last macro has double length ■. 






;Crtctab viditel 


screens 


0790 


7E 28 50 


VIDTAB 


FCB 


*7E,*28,»50,SB8 ;40 Char 


0793 


m 








0794 


IE 00 19 




FCB 


*lE,*O0,*19,*iG {24 lines 


0797 


IC 








0798 


00 09 60 




FCB 


♦00,*09,»60,»09 {9 scanlines, blinking cursor 
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DOS— 6iS Cor-iTi«9if 



Q79B 


09 














0!© 


GO 


00 


FCl 


»00,*00,*00,»00 


;Not used 


079F 


00 




















;Crtctab used 


by dos-65 




07A0 


7E 


50 


5F 


DQSTAB FCB 


ft7P CnD «PP 


1 0V C na r 


07A3 


88 












07A4 


IE 


05 


19 




♦ lE,«0S,*l9^*jtE: 


llnmm 


07Pi7 


IC 












07^9 


66 


09 


OO 


FCB 


*80,$09,*00,*09 


;9 scanlines, block cursor 


07AB 


09 












07AC 


00 


00 


00 


FCB 


*00,*00,*00,*00 


;Not used 


07AF 


00 












07B0 


20202020 


RES 


4,«20 


;Futural expansion 


07B4 


415444 




ATD FCC 


' ATD' 


{Hayes dial command 


07B7 


20 






PUTO FCC 




J Pulse, tone or def dial log 


07B8 


oooooooooo 


DIALBUF RES 


17,0 


; Buffer used by auttsdiiil 










; Con figuration 


flags 




07C9 


02 






CLOCK RES 


1,2 


iProcesttorspeed 1,2,3 & ^ mhz 


07CA 


FF 






SPLIT RES 


1,»FF 


;Split baud modem 75/1200 


07eB 


fiti 






HAYES RES 


1,0 


;Zero, if smart modem used 


07CC 


no 






EXTRA RES 


1,0 


;Autobaud modem initialisation 


07CD 


El 






RES 


1,*E1 


5 In use for astrid (fifo) 


07CE 








Pf=JOTOCO RES 


1,2 


; Protocol =videotBX (fixed) 


07CF 








TIMFL RES 


1,0 


;0 = update time, OO don't 










;*:«:*:♦:* do 


not change sequence table below :«:*:#:*:* 


07D0 


FF 






ECHO FCB 


*FF 


}Fullduplex = ff {detaullj 


07D1 


00 






ANSDRG FCB 


*0 


jOriginate = 00 (default}. 


07D2 


4'? 






WORDFOT FCC 


•B' 


jA=BNl, B=7E1 {default} 


07D3 


04 






BAUDPAR FCB 


4 


;Baudrate {default} 










; 1=2400/2400 














;2=1200/1200 














;3= 300/300 














;4=1200/75 














; 5=dos specified 












;*:*:*it:t end 


table : >K : iK : » : » : >K 




07D4 


FF 






GF61 FGB 


*FF 


;0«astrid, *ff=viditel 


07D5 


33 






CFG2 FCC 


■ 3' 


;Version number hi 


07D6 


FF 






EXTOSC RES 


1,$FF 


;00=external acia osc 










;Ff=via-osc for acia (oRjy if split»0) 


07D7 


32 






CHR6EN RES 


1,-2- 












; ' 0 ' =octopus : 


(S sc lines, no dSS conversion) 










; ' 1 ' =chrgl : 8 


sc lines, 4 reserved. 










; ' 2 ■ =chrg2: 9 


sc lines (lowest extend) 4 res. 










j'3'=chrg3! 9 


sc lines (middle e 


(xtend) 4 res. 


07DB 


OS 






MONIT RES 


1,5 


;5=50hz ,6=60hz ,7=71hz 


07D9 


FF 






AUTREV RES 


1 ,*FF 


;Auto reveal on/off 


07DA 


FF 






BANSER RES 


l.tFF 


;00=bansoft control i/g 














;ff ssno control lines of vtit 


O/Db 


Ol 






PARCHK RES 


1,01 












;Ma5k parity check: 00 no check 












5 


01 check ^mrity 










; Keycodes menu 


transfer parameters/#iA J#r*/fe^yeia«iacr©' « 


07DC 


OB 






KEYUP FCB 


*0B 




07DD 


OA 






KEYDOW FCB 


*0A 


;Lf 


07DE 


08 






KEYBAC FCB 


*08 


;Bs 


07DF 


09 






KEYFOR FCB 


♦09 


}Ht 
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ID) IS 



— S S Gc> rr t% mm" 



07E0 


ID 


KEYBRK 


FCB 


' \E' +2 


; Common breakkey '^3 


07E1 


17 


KEYPUP 


FCB 


*17 


page up 






KEVPDQ 


FCB 


«1A 




07E3 


OD 


USERKEY 


FCB 


*0D 


;-U = '"M viditel (flffl^i:* 


07E4 


0000 




RES 


2,0 


;Future expansion 






; Key codes macro 


expansion 




07E6 


OE 


KEYMAC 


FCB 


«0E 


;'*n macro— kiiV (Sncl) 


07E7 


20 1510 


MKHELP 


JSR 


JVITXT 




07EA 


31 


KEYMACl 


FCC 


' 1 ' 


;Macro 1 


07EB 


2C 




FCC 


> 




07EC 


32 


KEYMAC2 


FCC 


•2' 


; Macro 2 


07ED 


2C 




FCC 






07EE 


33 




FCC 


'3' 


; Macro 3 


07EF 


2C 




FCC 


> 




07F0 


34 




FCC 


'4' 


;M'a€r« 4, 


07F1 


00 




FCB 


0 




07F2 


60 




RTS 







END 

Errors. det«cfee,«l'-s 0 

List 1 : So:yre#| i*t t Wf Vic f ^ , ittac 



De con f iguratiepagina is alBVOlgt op9«tlOUMd : 
700-78F! Macro's, 

790-7*?F: Crtc-tabel vidlfcel (40 kar#kt»rs), 
7A0-7AF: Crtc-tabel dos-65 (80 karakters), 
7B0-7DB: Conf iguratievariabelen , 
7DC-7F2: Functietoetsen . 

Men kan de con f iguratief i 1 e genereren met AS of met MCONFIG. Mconfig stelt 
een aantal vragen die beantwoord moeten warden. Aan de hand van die 
antwoorden word viditel. cfg samengesteld . Ook met As kan men deze file 
maken , men m&mt dftri in VICPS-«ac iS» iuists waarden fli^t , EJ* tnvullen in de 
sourcel isting . (zie voorbeeld boven in list 1.) 

VldStel mord gestart vanuit een commandfile. In d,«*iS file mo#t ieeri LOAD 
VIDITEL. cfg si«*n, Nadat deie tils geladen is kan .B»«n toch nm wiizis*np«n 
aanbrengen In de configuratle door er een kl»ine file overheert t* l«den. Bit 
kan handig zijn als men een afwijkende monitor heeft,' en dus de 6845 anders 
geprog rammeerd moet worden. 

De commandfile VIDI kan er dan alsvolgt uitzien: 
Load viditel.bin 
Load viditel. cfg 

Load IBMVDU.bin of Load IBMVDU 790, 7AF 

Op dezelfde manier kan men macro's overschri J ven . ©It kmn vanuit de mainmode 

van viditel gebeuren met: ! LOAD MACFIL 

Macfil is dan bijvoorbeeld een file die van 740-78f leNQpUb, en bestaat ylt 
asciitekst, afgesloten met een *00-byte. 

Het is mogelijk om de f unctietoetscodes te wijzigen. Dit gaat het 
gemak ke 1 i j kst met Mconfig. Zo kan men macro 1 aanroepen met ESC A om de 
A(cces)code te versturen al# lIDCatie *7E6 mtm CSC t»tB) bwvat en er op adres 
*7EA een 'A' (;»41) staat. 

De eitr*i£e vi j f macro's worden als Hayes codestrings gebruikt door 
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viditel-65, indien men de conf iguratievariabele HAYES actief geprog rammeerd 
heeft. Dit betekend dat men deze macro' s moet vullen met informatie volgens 
de voorgeschreven regels. Heeft men geen hayesmodem, dan maakt men HAYES 
inactief door er *FF te zetten. Vaditel-65 gebruikt de^e strings dan fSiet om 
het cno^atit id . een bs^paalde toestand te brengen, en men kan vrii 
programmeren . 

Het bl&k met systeemaf tiankel ijke waard^ (*7B0'-*70B) zorft mr\eamr dat het 
programma opstart met een geschikte default baudrate, woordf ormaat , clock- 
frequentie van het systeem, enz, enz . 

Een uitzondering is het buffer vanaf *7B8. Hier komt het te 1 ef oonnummer te 
staan dat men selecteert in de autodialer. Het nummer wordt uit deze buffer 
geltaald voordat dat nymfner daadwefkeliik gebeld word. Ook hier kan t(mn dus 
door de ' overschrij f-truc " het te bellen nummer op allerlei manieren 

man i pu 1 eren . 

Conclusie: Door een aparte pagina met systeemaf hankel i j ke waarden te 
gebruiken ontstaat een zeer flexibel programma, dat door bijna iedereen aan 
te passen is aan zijn eigen systeem en zijn eigen Mensen. 

II. De Commandoset 



De meest recente versie van viditel is V3 . 0 . Men kan controleren welke 
versie men heeft door de V ( ersion ) toets in te drukken. Men krijgt dan het 
ver sienummer , gevolgd door de geconf igureerde modemcode en de releasedatum 
geprint. Zo betekend V2.0 HI apri 1 1987, dat men versie 2 heeft, dat er 
geconf igureerd is voor een Hayesmodem met in terspeeder , (HI) en dat de 
versie vrijgegeven is in april 1987. 

Met het "! "commando beland men in de dosmode. Hier kan men doscommando ' s 
geven, zoals SEE FILE. Men kan dit tijdelijk blokkeren/starten met ^S, of 
afbreken met . Een '^C heeft als FATALE gevolg dat men definitief terugkeert 
naar dps-65» 

111. Het prinrten van- yi'dit'elfagina ' s 



Vanaf versie 3 kent viditel-65 de mogelijkheid om een vidi te 1 pagina af te 
laten drukken door de printer. Het printprogramma dient door de commandfile 
vidi geladen te worden. Indien men dit niet doet en men geeft toch een ■'•P 
(van Print) dan zal de melding 'Printmodule not present' volgen. Vanuit de 
dosmode kan men dan het printprogramma alsnog laden met lload vipa.bin. 
De printmodules die standaard bijgeleverd Morden (vipa.bin vo©r alls 
printers, en vipradix.bin voor de Star — rdxlO printers) zijn beide voorzien 
van een time-out mechanisme en een breakdetectie routine. Dit betekent dat 
als de printer niet klaar staat voor gebruik, er na ca. 10 seconden 
automatisch een melding komt 'Printer not ready' en er teruggekeerd wordt 
naar de viditel terminatmode. Heestal ziet men al sneller dat de printer 
niet aangesloten is, en daarom kan men ook direct ingrijpen met de 
breektoets. Vipa.bin in i t ia 1 i seer t de printer niet, vipradix.bin doet dit 
wel, en alleen de eerste keer dat hij aangeroepen wordt. Wil men iets 
printen en de printer is niet ready, dan gaat de ini tia 1 isatie (klaarzetten 
van de videotex grafische karakterset) mis- Remedie: lload vipradiK.bin nog 
.een keer, zodat de in i t i a 1 isa t i ev 1 ag weer gereset word, en alles correct 
verloopt. Deze true kan men ook toepassen als men de printer even uitgezet 
heeft, en de karakterset opnieuw geprogrammeerd dient te worden. 

IV, Van viditelformaat naar ascii 



Met de nieuwe utility VIPRINT is het mogelijk om een .vid file te listen op 
het scherm in asciif ormaat. Met > -tf Demo.asc Vi print demo. vid wordt een 



13 



«llie©t«Ktile oii(g#vormd tot een asciiflle die met ED te bewerkert is. 





mm 


»*7r 






PHA 








LDA 


IGNORE 


;Test if previous char is attr. prec 




BNE 


22 .F 






MQVEQ 


*FF, IGNORE 


;Set no atribute 




PLPi 








JMP 


1 .B 




22 


PLA 








CMP 


#' \E' 


; Videotex attribuite Bftarfeer 




BNE 


23. F 






MdVEQ 


0, IGNORE 


;Set attrifeute prec«Bd«r detected 




LDA 


#*20 






JMP 


6.F 






CMP 


#*7F 


5 Del it printed as '*'? 




BNE 


24 . F 






LDA 


#*20 






JMP 


6.F 




24 


CMP 


#*20 


;Control char ? 




BPL 


6.F 






CMP 


ttPF 


;Form feed — els 




BNE 


99. F 






JSR 


out 


;Cls 


99 


CMP 


tt' \r • 


jReturn ? 




BNE 


16 . F 






PHA 








LDA 


ttO 






STA 


COUNT 


t Reset count 




PLA 








JSR 


out 






JMP 


@.F 




16 


CMP 


# ' \n • 


;lf ? 




BNE 


14 .F 






JMP 


9.F 




14 


CMP 


«WT 


; Cursor right ? 




BEO 


78. F 






CMP 


#BS 


;Cursor left ? 




BNE 


77 . F 






LDA 


COUNT 






BEQ 


IIS.T 






DEC 


COUNT 


5 Reverse count 




LDA 


#BS 








77. F 




& 


I'NC 


COUNT 


jCount char 


7 


JSR 


out 




& 


LDA 


COUNT 






CMP 


#40 






'wm 


1 .0 




9 


LDA 


#0 


; Reset counter 




STA 


COUNT 






JSR 


print 


;And new line 




FCC 


• \r ' ,0 






JMP 


l.B 




77 


NOP 








JMP 


7.B 




78 


NOP 








- JMP 


6.B 





14 




CO) 




3^ isnEsrKgrisi^ 



List 2: Hoof dgedeel te Viprint 



Momenteel is Viprint nog een eenvoudig programmaatje dat om de veertig 
karakters een <CR> (=tOD) invoegt en d isp 1 ayattributen eruitf 11 t«rt« 
Beter zou het zijn om ook nadat een set graphic' code ontvangen is- alle 
navolgende grafische informatie te vervangen door een spatie. 

V. Fout in Mconfig 3.0 

Helaas is er een storende fout in Mconfig 3 geslopen. Er worden 2 bytes op 
de verkeerde plaats gezet, met als gevolg dat de VDU-kaart niet correct 
geprogrammeerd word, en men een onleesbaar beeldscherm krijgt. Dit i« op te 
lossen door de Crtctabel voor 80 karakters over viditel.cfg heen te laden, 
zoals hiervoor in &I. beschreven, of door de verbeterde mconf igversie V3 . 1 te 
gebruiken. 

VI, Viditel-65 versnellen 



Viditel-65 wordt verspreid voor een standaard Nmos 6502 processor. Het is 
echter geschreven voor een Cmosprocessor met gebruik van rtieuwe 
instructies. Maar alleen die nieuwe instructies zijn gebruikt die 
eenvoudig vervangen kunnen worden door een macro in AS, die de code omvormt 
naar de standaardcode . Indien men een Cmosprocessor in zijn systeem heeft 
zitten, kan men de .bin file aanzienlijk verkleinen, waardoor de 
gebruikerssnel heid ook iets toeneemt. 
AS -1 Vidi genereert 6502 code. 
AS Vidi genereert 65C02 code. 

De file CMOS. mac kan ook voor andere programma's van nut zijn. Men dient er 
wel rekening mee te houden dat men dan toch nog aanpassingen aan zijn 
programma moet aanbrengen, bijvoorbeeld omdat een branch 'out of range' 
raakt. Bij viditel is hier rekening mee gehouden, en kan probleemloos geas- 
sembleerd worden. 

; Program name: CMOS 
;Creation date; JIB feb 1988 
; Update : 
;Version: VI. 0 
jProgrammer: Bram de Bruine 
jMardwares DOS 6S 

; Purpose: Emulation 65cQ2 code on standard 6502 
;Program description: Macro calls 

;This program emulate only the new mnemonics who does nt use 

;the indirect addressing mode. The macros below use a lot 
;more memoryspace then solutions in normal NMOS. 



arg 



arg 1 
argm 



zero 
prose 1 



;Default: assemble for cmos processor 
;If argument is 1, then emulate 



zero equ 
emulate equ 



0 
1 



if 



prosel==emulate ;set emulate mode 



BRA 



MACRO 
JMP 



ADR 
ADR 



; BRANCH ALWAYS 
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ENDM 






STZ 


MACRO 




;STORE ZERO in memory abs 




PHA 




;but not yet: ABS.X Z, Z,X 




LDA 


m 






STA 


OP 


t 




PLA 








ENDM 






INCA 


MACRO 




; INCREMENT A C,V destroyed 




CLC 








ADC 


#1 


;A:=A+1 




CLC 








ir«M 






DEC A 


MACRO 




jDECREMENT A C,V destroyed 




SEC 








SBC 


#1 


;A:=A-1 




CLC 








ENDM 






PHX 


MACRO 




5 PUSH X ON STACK 




FCB 


*2C 






NOP 




fgfeip 2 byt«s 




RES 


1,0 






STA 


»-l 






TXA 








PHA 








PHP 








LDA 


«-7 






PLP 








wmm. 






PHY 


WftCRD 




;PUBH Y ON STACK 




pes 


*2C 






NOP 






_ASAVEY 


RES 


1 






STA 


_ASAVEY 






TYA 








PHA 








PHP 








LDA 


J^AMEY 






PLP 








ENDM 






PLX 


MACRO 




;BET X FROM STACK 




FCB 


*2C 






NOP 






. XASAVE 


RES 


1 






STA 
















TAX 








PHP 








LDA 


_XASAVE 






PLP 








ENDM 






PLY 


MACRO 




5 BET Y Wmm STACK 




FCB 


$2C 






NOP 
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DOS — & 5 



YASAVE RES 



1 



PLA 
TAY 
PHP 
LBA 
PLP 
ENDM 



YASAVE 



YASAVE 



ehdi f 



if 
o:p* 
end if 



prosel==zero 
C02 



;set cmos option 



opt 
END 



lis 



VII. Macro's voor andere tel ef oonnummers dan de eerste pagina van vitel .dir 



Hm't i* lKMt»rdaad megelijk &m i«tJisr telef ODFinummsr een macroblok t» 

koppelen. Als men alleen macro's gebruikt voor de eerste twintig telefoon- 
nummers uit de telef oonboekf ile Vitel. dir gaat alles automatisch. Heeft men 
hier niet genoeg aan, dan kan men bv voor pagina twee (21.. 40) alsvolgt te 
werk gaan: 

Copy vitel. dir naar vi tel . ti jdel i j k , 

Verwijder de eerste 20 nummers uit vitel. dir met ed. 
copy vimacro.def naar vimac ro . t i j d , 
Run defmac. 

Rename Vimacro.def naar Vimacro2'def , 

Delete Vitel .dir en rename vitel . tijdel ijk weer naar Vitel. dir, 
Men kan nu nadat pagina 2 van vitel. dir geprint is op het scherm, een breek 
geven en met lload vimacro2.def 340, 7ff de nieuwe macrofile laden. Dit is 
echt'iir niet voldoencfe, mmn tmmt timk nog iri* Vttriat^Se PAdi $01 maken, (zie 
file Vidi.mac), en na af lei^f Meer terMgfetten op de e}4jd9> ivaarde. 

VIII. Tijd printen op de statusregel 

Daar er geen standaard entry in de jumptabel van io/dos-65 zlt om de tijd op 

de statusregel te printen, heb ik zelf de routines daarvoor in viditel 
opgenomen. Op 1 MHz systemen is duidelijk een hinderlijk knipperen van het 
beeldscherm te zien als de cursor op de statu«reg«l g«po»i tionciMha eiofatf &m 
tijd daar geprint word, en vervolgens de cursjar ■mmmr teruggezet wordt op de 
oorspronkel i jke plaats, ergens tussen regel 1 en 24. Om dit zo onopvallend 
mogelijk te doen kijkt de routine UPTIM allereerst of de correcte tijd al 
geprint is door vergelijking van SECONDS met CLSEC , is dat niet het geval , 
dan wordt ino% ©©Wb vergeleken of tSLSECS de waarde vijf bereikt heeft. Indien 
dat zo is, wordt de tijd pas geprint. De macro MOVEQ 5,CLSEC5 zorgt ervoor dat 
de tijd iedere vijf seconden op het scherm geprint wordt. Wil men de tijd 
iedere seconde bijgewerkt zien moet er MOVEQ 1,CLSEC5 staan, of zoals in 
onderstaande listing MOVEQ 3,CLSEC5 om de tijd iedere drie seconden te 
plri^tew.. 



;Time is only printed every 5 sec. 
LDA SECONDS 



CMP CLSEC 

BEQ 33. F 

STA CLSEC 

DEC CLSEC5 

BNE 33. F 



I Print time if not equal, 



;Save current value 
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;^CO^^ US IS EST EST IS le^, 

DOS-© 5 



32 



33 



MDVEQ 


3,CLSEC5 


• j|t $ i|cTi J d iedere 3 seconden 


JfSR 


CUROFF 




JSR 


CURSAVE 




JSR 


INVVID 


jSet inverse video 


JSR 


PR I SEC 


{S#€@fids 


BNE 


32. F 


; Update only iT oo 


JSR 


PRIMIN 


; Minutes 


BNE 


32. F 


;Update only if 00 


LDA 


HOURS 


;Hours 


UDX 


#7 




JSR 


POSTAT 




JSR 


TIOUTl 




JSR' 


NORVID 


; Normal video 


JSR 


CURLOAD 




JSR 


CURQN 




RTS 







<end> 



Hagelcomeii aanvulling. 

IX. Ed it en met viditelpaf ln«'s 

Met de nieuwe viditel is het mogelijk om een enkele pagina afzonderlijk 
op disk te zetten. Met append kan men dan zelf een file samenstellen met 
de pagina's die men bij elkaar wil groeperen. Al met al is dxt nop! een 
oasl«€htige manier. Indien men alleen pagina's wil VERWIJDEREN kan dlt 
ook direct vanuit de viditel terminalmode met de volgende truct 
Laad de file waaruit een of meer pagina's verwijdert moeten worden met L 
rile. Ga met C naar de terminalmode. Iedere pagina die men wil bewaren 
kan men opslaan door -als hij in het pagebuffer staat- de volgende 
bewerking uit te voeren: -^K^L *W *Z *S. Be geloade data »or# €a» ^wir- 
schreven door de nleuire aata im^m wet r-lcey) ett kan met S Pile op disk 

gezet wojcden* 
<end> 



De Eprommer ; levering latelaatii ifjeirfetgtiiglif.. 

In het Juninummer van de 6502 Kenner Werd de Eprommer gepublleeef-d. 
fera#r Is er toen verteld dat de print ?n de PAL via Nico de Vries 
besteld konden worden. Op dat moment gingen we er van uit dat de print 
geleverd zou kunnen worden op het moment dat de Kenner in de bus zou 
liggefi. telaas zljn et bij de productie van de prints enkele vertra- 
gingen opgetreden. De situatie is nu zo dat we verwachten binnenkort 
(binnen enkele weken) met de levering te kunnen beginnen. Mocht dit niet 
het geval zijn, dan zal het reeds betaalde geld teruggestort worden. 

Adri Hankel/Nico de Vries. 
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; file : IRQREST.MAC 

; auteur : adri hankel 

J datum : Il^sep-88 

; funktie : herstellen systeemcontrole na 'crash' 

; Deze routine maakt gebruik van de bij DOS65 niet gebruikte Ml vector. 

; Bij het ontwikkelen van een programma kan het voorkomen, dat het 

; systeem 'hangt'. Dit is onder meer het geval bij een ongecontroleerde 

; loop, of een progftmtA waar d@ interrupt flif ftset Hdtit. dat 

; moment wordt de keyboard interrupt niet meer verwerkt, "C werkt dus 

; niet meer. 

; Door deze routine resM#ttt il btl fili^iea te zetten, en een NHI te 

; genereren, kan men in. .tt !ii#«lt f««tiliill- «ttr M mmtwm%» mmt' 'lst0L 

; systeem verkrijgen. 

; Voorwaarden voor een goede verking zijn: 

; - de NMI lijn meet aangesloten zijn, zoals beschreven ifl^ de DOS65 

; hardware manual (pagina 3, en fig. 4, pagina 5). 

f - ie t^S 4i4m mmmw^W te tiiti, mAMt deze r#«ii»e «ifiitlt met 

J ,mm jtwp a»H!f *»rarme start' van 

; Gebruik van deze routine: 

; - ASsembleer IRQREST.MAC 

; - laadi^ IRQREST.BIN (OLO IRQREST.BIN 0) 

; mt vttiient atil^fvtliiif IRQREST.BIN automatisch te laden, kom 

; OLOAD IRQREST.Siil $ m U nemm in LOGIN. COM 









; *** externe 


adressen *** 








E133 


aciacmd 


equ 


$el33 


;acia commando ttfilttS 






E7B1 


nmivec 


equ 


$e7bl 


;NMI vector 








Irqvec 


equ 


$e"ri}5 


tTk^ rett&t ' 






C003 


dos 


equ 


$c003 


;warme start DOS65 






F22F 


irgdest 


equ 


$f22f 


; start adres IRQ routine 1065 






urn 


'efii 


t»I0e 


; via a inl* (mj^it itf ister 






EllE 


vbiet 






;via b int. enaMe ftfistwr 








. *** zet WAt vector op begin ro«tine *** 






E7B1 




org 


nmivec 




E7B1 


A0E5 




fdb 


irqrest 








E5A0 




org 




;rt»i^u| f0«!|pQ.. 




m 




irqrest 


eld 




; reset decimal mod^ 


E5A1 


78 






sei 




;geen interrupts 


E5A2 


A9 


2F 




Ida 


#irqdesti255 


;herstel interrupt vector 


E5A4 


8D 


B5E7 




sta 


irqvec 




E5A7 


A9 


F2 




Ida 


#irqdest>>t 




E5A9 


8D 


B6E7 




sta 


irqvec+1 




B5AC 


A9 


C2 




Ida 


#$c2 


; systeem via's interrupt enable 


E5AE 


8D 


OEEl 




sta 


vaier 




E5B1 


A9 


80 




Ida 


#$80 




E5B3 


8D 


lEEl 




sta 


vbier 




E5B6 


A9 


00 




Ida 


#$00 


;aeia &mi. #t default waarde 


E5B8 


8D 


33E1 




sta 


aciacmd 




E5BB 


A2 


FF 




Idx 


#$ff 


; stack reset 


E5BD 


9A 






txs 






E5B!; 

isif 


58 






cli 




.•interrupts weer ok 


4C 


03C0 




jmp 


dos 


; spring naar DOS 






E5A0 




end 


irqrest 





Errors detected: 0 19 



is dat? (Peel 1). 



'Woatt Mtdo de Vries 



Het. is alweer geruine tijd geledrai, dat bovraigetekraKie een spree kbeurt heeft gehou- 
den over programBeerbare logica. Irmiddels heeft de tijd niet stilgestaan: er is 
tegenwoordig een groot aantal scxjrten programeerbare logica op de narkt, terwijl de 
gebruiksgraad irmiddels zodanig is dat rustig van standaardcanpcnenten gesproken nag 
worden. Voeg hierbij het feit dat deze soort ccxixxienten ook hun intrede in de club 
hebben gedaan (in de O'EOfprogranner zit een |^i^> m tt Miift ^Is l^sdimm blj elkaar 
waaroB dit verhaal is gemaakt. 



'Wm 'Mt iist ttliiiiisr? 1^ -dig Ifigica 

kent nen slechts twee toestanden, die 
neestal net 'waar' en 'niet-waar', 'true' 
en 'false', '1' of '0' of in analogie net 
de neest gebruikelijke ^>anningsniveaus 
'hoQg' en 'laag' worden aangeduid. De ge- 
bruikte vom van logica is TTL, dat Tran- 
sistor-Transistor-Logica betekent. Deze 
fanilie werkt net een voedings^>anning 
van 5 Volt. Nu ligt het voor de hand on 
dat af te spreken dat 5 Volt een '1' of 
'waar' is, en nul Volt een '0' of 'niet- 
naaj:'. Pit is niet helenaal juist. In de 
ficaictijk is men '0' een spanning tussen 0 
« 0.8 Volt en een '1' een spanning tus- 
sen 2.4 en 5 Volt. Deze grenzen worden 
fwnelijk b^>aald door de karaktecistieken 
van de in- en uitgangstrappen. 

Een heleboel dingen uit het dageligks 
leven kunnen word«i gevangen in deze '0' 
en '1' teminologie . Het regent bijvoor- 
beeld, net als tegengestelde het regwit 
niet. Het wordt echter pas logica als er 
verbanden tussen diverse logische ver- 
schijnselen worden gelegd. Bijvoorbeeld : 
Ik draag een jas als het koud is, OF als 
het regent. Een ander voorbeeld: Ifet 
ISDcht in huis als het raam EN de deur 
iliimstaan. De net hoofdletters afgedrukt 
Herden geven het verband aan tussen twee 
logische groothedrai: koude OF regen, raan 
EN deur. Het resultaat is weer een nieuwe 
logische grootheid: Het al dan niet dra- 
gen van een jas, of het wel of nist toc^ 
ten in huis. 

De twee genoende verbanden EN en OF (of 
in het Engels: AND en OR) vomen de basis 
van de zogenoende Booleaanse logicssi^ IQer 
Engelsnan Boole heeft dit soort vem- 
schijnsel^ nanelijk uitg^reid beiitxi-^ 
ti&^pd en in een wiskundig nodel ipgoi^ii: 
iSm Boolt^taifse &l&lbm. Deze atlgi^bm lerakt 
onder andere g^ruik van waarheidstabel- 
len die er voor de voorbeeld^ als volgt 
uitzien: 

JAS KOUD RBdEN TOCHT RAAM DEUR 



0 
1 
1 
1 



0 
1 
0 

1 



0 
0 

1 
1 



0 
0 
0 

1 



0 

1 

0 

1 



0 
0 

1 
1 



Deze ^Mii ^rhanden, AND en OR vonapi 
basis v&i de S^leaanse algebra. Boole 
heeft nanelijk aangetoond, dat ieder 
willekeurig verband tussen een willek»i- 



rig aantal logische groeitipden altijd 
tepn wem^im.. uitgedrukt in mm. isonbimtie 
irSKi ffease bewerkingen . Wbh^ mernl- 

gens op, dat een AND-verband tussen twee 
variabelen hetzelfde is als een binaire 
(tweetallige) vemenigvuldiging, en dat 
een OR bijna overeenkomt net een binaire 
optelling. Een AND-verband wordt ook wel 
een product, en een OR-verband een son 
genoCTd. In de Booleaanse algebra 
schrijft nen voor een AND dan ook nees- 
tal een punt of een sterretje, en voor 
een OR een plus. De voorbeelden worden 



JAS = EOUD + RBQSi 

Toars = RAAM » mm 

Eerst een opnerking over de OF bewer- 
king. Het voorbeeld klopt: men draagt 
een jas als het koud is, of als het 
regent, maar ook als het koud is en het 
regCTit. Dit is wat tegenstrijdig net het 
dagelijks taalgebruik van het woord of, 
waamee nen neestal een keuze van 1 uit 
2 bedoelt. Deze bewerkixig bestaat echter 
ook in de Booleaanse algebra en heet de 
^mlusleve OF, of in verkort En gels : de 
WSM. Q» schrijfwljze van de WM is 
niet genomaliseerd . De EXDR is een zui- 
vere binaire optelling: 



EXOR 


A 


B 


0 


0 


0 


1 


1 


0 


1 


0 


1 


0 


1 


1 



He hetiben nog 1 grondbewerking tegoed: 
de inversie of de NIET-bewerking. Deze 
benerking vindt altijd plaats op 1 en- 
telfi^CK^^eidj terwljl de andere drie 
steei^ b^trekking h^»en op twee groot^ 
hed^. De NIET-bewerking (of in het 
Engels: NOT) verandert eenvoudig 'waar' 
in 'niet-waar' en anderson. De schrijf- 
wijze op papier is net een streep bov^ 
de naaa: 



dit is das: niet-nSKSBi 



Dit is voor conputertoepassingen wat 
ninder handig, vandaar dat nen in der- 
gelijke ongevingen neestal een sla^ 
gebruikt on inversies aan te geven: 
/RBGSN. Ook beHerkingen kunnen worden 
ongekeerd: een AND wordt dan een HAND en 
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een OR wordt een fOR. De maodheidstabel- 
len hiervan zijn: 



NOR 


A 


B 


HMD 


A 


B 


1 


0 


0 


1 


0 


0 


0 


1 


0 


1 


1 


0 


0 


0 


I 


1 


0 


1 


0 


1 


1 


.. i 


1 


1 



De heegr Biiole was niet de enige die zich 
bezig hiield net dit soort zaken. De Schot 
DeMorgan bijvoorbeeld ontxlekte een be- 
langrijke regel, die gebruikt kan worden 
bij het omzetten van OR-verbanden in Hi|- 
verbanden en anderson. Vergelijk de vol- 
gende tuee vezgelijkii^Bn msm^ 

JAS = KOUD + RBGEN 
/JAS = /KOUD * /RBOai 

Zoals te zien is, zijn beide regels in 
feite hetzelfde. He dragen geen pas, als 
het niet regent, en als het niet koud is. 

Vergelijk ook eens: 

JAS = /WARM + /DRDOG 
/JilS = WARM * DROOG 

De regel van DeMorgan is dan ook: Als de 
uitgangsvariabele geinverteerd wordt, 
worden alle ingangsvariabelen eveneens 
geinverteerd, en verandert een AND- 
beHerking in een OR en een OR-bewerking 
in een AHD. Dit fipia^iet^ WBiliJlKIC- aIs 
er coobinaties van «Me en OBH In tii vear- 
gelijking voorkonen, naar hiervoor zijn 
een aantal rekenregels beschil±>aar die de 
volgorde van werken bepalen, iets in de 
trant van 'Mijnheer Van Dalen Wacht 
Antwoord'. Het valt echter buiten het 
bestek van dit verhaal on al deze regels 
uit te leggen. 

De belangrijkste oonclusie die uit de 
stelling van DeMorgan getrokken kan wor- 
den is dan ook: ieder willekeurig logisch 
verband tussen een aantal logisc^p HUrl'* 
abelen kan worden genoteexd aJLs mm^'Wim 
van producten, of als product van i iiwti 
Sen noorbeeld: 

U = A * /B is gelijk aan: /U = (/A + B) 
+ C * /C 

(De rekrairegels eisen ook in Booleaanse 
algebra dat een product wordt uitgewerkt 
voor een son, vandaar de tiaakjes in de 
rechter verge lij king. Schrijft meii de 
rechter vergelijking uit, dan staat er: 

/U = /A » /C 



Wat heeft dit alles nu te naken net pro- 
grameerbare logica? Alles. Het voorgaan- 
de iras nodig on te laten zien Haaron pro- 



granneerbare logica is, zoals zij is. 
Raar nu de praktijk. 

Ken ieder die wel eens wat uitgebreider 
heeft ge^ieeld net TTL-poorten heeft 
waarschijnlijk wel ontdekt, dat de wat 
coBplexere Ipgische schakelingen rela- 
tief veel TTL-ICs vereisen: in 1 IC net 
14 of 16 pootjes zitten 4, 3, 2 of zelfs 
naar 1 poort(en). Bij wat grotere aan- 
tallen ingangen en/of conpleaciteiten zit 
je al gauw net een kwart Eurokaart aan 
Gippervlak. Nu was dat 15 jaar geleden 
nqg niet zo erg: TTL was zo ongeveer het 
neest geavanceerde wat nen krijgen kon. 
In de hedendaagse nicroprocessorwereld 
echter, lijkt zo'n kwart Eurokaart al 
gauw verspild: em 40 pins CPU is aan- 
ner kelijk krachtiger dan bcti clustertje 
TTL. Ook de wens on steeds meer functies 
op ninder ruinte onder te breng an w erd 
door de lage integratiegraad van TTL in 
de grond geboord. Toch kunnm we nauwe- 
lijks zon&rdie T^t: jsg .j B|l tgds^. g ede- 
oodooxd, . gtwifflfBawi -an' ^aEsanvBrteerd 
noeten worden. 

Deze gedachten, geccnbineerd net de 
wetenschap dat alle logische verbanden 
als son van producten kunnen worden be- 
schreven, leidde in 1979 tot de uitvin- 
ding van de PAL, een afkorting van Pro- 
granDable Array Logic. Degene die de 
uitvinding deed heette John Birkner en 
hij werkte toen bij MMI (Monolithic 
Menories Inc.). De opbouw van zo'n PAL 
is eigenlijk heel eenvoudig. In afbeel- 
ding 1 is de eenvoudigste PAL afg^ieeld: 
de PAL10H8. 

Deze PAL is uitgerust net 10 ingangen, 
die op de pinnen 1 t/n 9 en pin 11 te 
vinden zijn. De 8 uit^soigen zitten op de 
pinnen 12 t/n 19. De pinnen 10 en 20 
zijn re^>ectievelijk de nassa (GND) en 
de voedingspanning (Vcc). Deze PAL heeft 
dus 20 pinnen en zit in dezelfde behui- 
zing als bijvoorbeeld een 74LS244. Het 
aantal in- en uitgangen zit verstopt in 
het typ«iuB«ier: IQHS geeft aan 10 in- 
gang^ en 8 uitgangen, de H vertelt tsis 
dat de uitgangen. ^^i,ef hoog zijn. 

Meze PAL (alle fllGui trouwens) is grfja- 
aeerd op het son van producten principe. 
Be son wordt gevomd door en OR-poorten 
aan de uitgangen, die bij deze PAL ieder 
2 ingangen h^iben. Deze PAL kan dus per 
uitgang een logisch verband genereren 
dat bestaat uit de son van twee produc- 
ten. De ingangen van de OR-gate zijn op 
hum beurt verbonden net de uitgangen van 
twee AND-poorten. Deze AND-poorten zijn 
wat afwijkend getek^id, naar ze hebben 
ieder 20 ingangen. On niet alle ingangen 
te hoeven tekenen, worden ze voorgesteld 
door de liggende lijnen in de tekening, 
1 li^ende lijn is dus eigenlijk een 
bisxlel van 20 verbindin^n waartuessen 
een AND-verband kan b^toan. 
wcMcdt zo'n lijn ook mal product! 
genoend. ledere ingang van de AND-poort 
is verbonden een pull-up weerstand naar 
de plus en net 1 van de staande lijnen 
in de tekening. Deze verbinding is ech- 
ter niet vast, naar b^rtaat uit een heel 
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klein stukje metaal op de chip, dat de- 
zelCde eigaischappen heeft als een zeke- 
ring: als je er teveel stroom doorstuurt, 
dan smelt het weg. Een dergelijke ver- 
binding wordt in het Engels een 'fusible 
link' of korttieg fuse' of link' ge- 
noend. 

De staande lijn«i in de tekening zijn 
verbonden net de ingangen. De ingangsbuf- 
fers vmi iedere pin hebben twee uitgan- 
gen: een nornale en een inverterende . On- 
dat er tien ingangen zijn, zijn er dus 
twintig staande lijnen. Op de kruising 
van iedere staande lijn net een liggende 
lijn is dus steeds 1 fusible link aan- 
wezig. Als msn de PAL koopt, zijn alle 
links aanwezig. In een 10H8 zijn dit er 
20 (ingangen X 2) naal 8 (uitgangen) naal 
2 (aantal producttemen per uitgang) is 
320 stuks. Het gebied op de tekening waar 
zich de fusible links bevinden (de krui- 
singen tussen de lijnen) wordt het fuse- 
array of kortweg het array genoend. Door 
nu bepaifcLde links fi@g,te prograHBeren net 
een gz^^H^HS&ta imSm hapaalde verbin- 
dingen verbroken worden, en kan een lo- 
gisch verband tussen de in- en uitgangen 
woxden gecre^ztl* 



4. Hoe werkt een PAL nu? 

Een voorbeeld. Stel we willen de vol - 
gende logische functie in~dl| PMj progran- 
meren: 

U = /A * B 
+ C 

Stel, we noenen pin 19 U, pin 1 A, pin 2 
B en pin 3 C. Eerst noet er een verbin- 
ding konen tussen de inverse van pin 1 en 
de bovCTiste AND-poort. Dit is de kruising 
tussen de staande lijn 3 en de liggende 
lijn 0. De tweede verbinding is die van 
pin 2 naar eveneens de bovaiste AND- 
poort. Dit is de verbinding tussen de 
staande lijn 0 en de liggende lijn nul. 
Pl73grameert nen nu alle andere verbin- 
dingen tussen de staande lijnen en de 
liggende lijn 0 weg, dan heeft de lig- 
ide lijn 0 de functie /A * B gekregan. 
tweede producttem gaat precies zo. DBf 
OR-poort aan de uitgang zorgt voor het 
OR- verband, zodat de functie C op de 
tweede liggende lijn moet komen. Dit is 
de kruising tussen de staande lijn 4 en 
de liggende lijn 1. ProgfraiBneert nen op 
deze liggende lijn alle andere verbindin- 
gen weg, dan is de gewenste functie ge- 
naakt. 

Wat gebeurt er nu, als we niet alle 
producttemen in de PAL gebruiken? Dan 
blijven alle verbindingen op die liggende 
lijn intact. Ir on^staat dsn in eeo 
PAL10H8 m mme^ op die 



(1 * /I) * (2 * /2) * (3 * /3) *. 



1 * /t *' 1 #■ /I * 1 • *. 
lets anders 



Als we nu in de waarheidstabel voor een 
AND kijken, dan zien we dat (1 * /I) al- 
tijd nul is. Kijken we nog verder, dan 
blijkt dat 0 * lETS altijd nul oplevert. 
Zo'n producttenn net alle links intact 
is dus altijd logisch nul. Kijken we 
vervolgens naar de waarheidstabel voor 
een OR, dan vinden we dat 0 + lETS al- 
tijd lETS oplevert. Het net to resultaat 
is dus, dat een producttem net alle 
links intaet Seen invloed qp de jaitgang 



De PAL10H8 is natuurlijk niet de enige 
PAL die er te koop is. Zo kan het aantal 
uitgangen en het aantal ingangen ver- 
anderd worden, waarbij de son van die 
twee steeds 18 blijft (vanwege de 20 
pins behuizing). Zo zijn er dus ook een 
12HB, een 1-^4 en een 16H2. Ook kun je 
besluiten de PAL niet te voorzien OR- 
poorten in de uitgaongen, naar van NOR- 
poorten. De* IK in het typenunner wordt 
dan een L (van _mB^3idBg Ifll^ • dm 
nanier ontstaan de WM, tili^«ft 

16L2 PALs. 

In de praktijk bleek al spoedig, dat de 
behoof te aan actief lage PALs veel gro- 
ter was dan aan actief hoge. Ook was het 
aantal producttemen vaak te klein. Ver- 
der was er behoefte aan PALs die aan een 
bus gehangen konden worden, of anders 
gezegd, de uitgangen noesten ook in tri- 
state kunnen worden geplaatst. Dit leid- 
de tot een tweede reeks PALs, waarvan de 
PM.16L8 en de PAL16R4 zijn afgebeeld. 

In de PAL16L8 zijn alle uitgangen ac- 
tief laag (een PAL16H8 bestaat met van 
HMI). Verder valt op, dat alle uitgangen 
voorzien zijn van 8 producttemen. De 
bovenste producttem echter wordt niet 
gebruikt voor de logische functie van 
uitgang, naar voor de tri-state enable 
ervan. Een laatste nieuwigheidje is, dat 
de 6 niddelste uitgangen teruggekc^jpeld 
zijn. Deze 6 terugkoppelingen zijn er 
verantwoordelijk voor, dat de naan 161.8 
ontstaat: tet array heeft inmers 18 in- 
gangen. Een telling leert, dat een 
PM.16L8 in totaal 2048 fuses bevat, aan- 
nerkelijk neer dan de PAL10H8 van daar- 
straks. De PAL16L8 is de werkezel onder 
PALs: deze PAL wordt neer gebruikt dan 
alle andere PALs bijelkaar! 

De PAL16R4 is een broertje van de 
PAL 161^: het array is precies even 
groot. Deze PAL bevat echter registers 
in 4 van de uitgangen. Ondat deze re- 

fisters ook geclockt noeten worden, is 
iervoor pin 1 gebruikt. De vxijgekoK^ 
aKray-ingpig wordt nu de terugkoCT>elxng 
#te tt, Als bijzonderheid is verder 
te ^SiM»liBlia dat pin 11 een tri-state 
(msBh%& voor de registerait^angen as ge- 
worden: de vriggekaeai array- ingaa^ iMS 
de terugkoRpeling van pin 12 geno«^eBi 
terwijl de registeruitgangen nu 8 pro^ 
ducttennrai hebben. Er bestaan nog ti«ee 
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varianten: de PAL16R6 en de PAL16R8 net 
respectieveliok 6 en 8 registeruitgangen. 
Ne hebben reeds gezien dat er een 10L8 
en een 1QH8 bestaat. De volgende stap is 
geweest, on een PAL16L8 te naken, waarvan 
de uitgangspolariteit per uitgang bepaald 
kon worden: de PAL1GP8. 1 uitgang van de 
PALISH is in afbeelding 5 getoond. Tus- 
sen de OR-poort en de uitgang^juffer is 
e&i EJflDR-poort geplaatst net twee ingan- 
gen. De tweede ingang van deze poort is 
net de GND verbonden via een fuse. Als de 
fuse aanwezig is, is de PAL actief laag, 
«ordt zij neggeprogranaeerd dan is de 
uiti^ng actidt hoog (g a dit na in de 
waarheldstatel van de ERIR^. ttaloog 

10H8 



hiexaan tjemtam er ock. WSS^. WSIBB en 
16RP8 PALs. 

Een zelfde verhaal kan worden gehouden 
voor PALs net 24 pinnen, ofschoon niet 
alle be^rok^ varianten inderdaad be- 
staan. Een bijzonderheid van M^^mw BMm 
is, dat de behuizing nlfiffc 0.6 Imsh uaaat 
0.3 inch breed is. Een aantal typenumers 
zijn: 12L10, 14L8, 20L8, 20B6, enzovoort. 



In deel 2. 



De volgende keer worden de laatste 
ontwikkelingen op dit gebied belicht en 
wordt er ook aandacht geschonken aan 
andere soorten programeerbare logica, 
alsnede aan de nanier waarop de inhoud 
van de PAL wordt ontirLkkeld. 



' — \^ 



3=0 



• I I 1 * i I I I1 1] II IJ 



MMItSI 




PALiem ItetaHaaon 
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« HANDIGHEIDJES EN FOUTJES IN DOS-65 UTILITIES « 

B. de Bruine 

1. INLEIDING 



Oit artikel beschrijft een aantal eenvoudi^e gebru4Ksraani9r«n om met 
afwiikende tabposities in ED te werken, hai ik z«if 'iH#t m^SiStrmctQrimm 
mm^mif an «4«ltee onvolkoffienheden sommige utilities bezitten. 



2, HET WERKEN MET TABS IN E© 



ED kent de mogelijkheid om met tabs te Merken. Default staan deze tatps 
geprogrammeerd opiopend met 8 polities. Het led tab k ah ilieht dUttm p&«i;4;£Mi 
wijzigen. (max. 16) Dit is erg handig voor boekhoudkundige programma's en 
andere zaken waarbij een kolommenindel ing gewenst is. De huidige 
printcommando' s expanderen tabs alleen evenrttdig met 8 kslotMlWI* fiilsainluut) 
Om de file met zelf gedef inieerde tabs te kunnen printen, moet eerst 
onderstaand programma (EXPAND) de file bewerken. Expand vervangt alle tabs 
(HT=$09) door een aantal spaties, gerelateerd aan de tabtabel met de zelf 
gedef inieerde tabs. Bij lange programma' s duurt het vrij lang voordat alle 
WT's geexpandeerd iijn tot spaties, immers voor iedere spatie die 
tussengevoegd moet worden , moet heel de file verplaatst worden ! 

□m veelgebruikte tabinstel 1 ingen te kunnen bewaren, zijn analoog aan smacro en 
Imacro hiervoor de utilities stab en Itab gemaakt. Alle drie de files zijn 
comniif nd f i 1 es . 

;File LTAB by B. de Bruine, 20 okt 1986 
LOAD &l.tab 

;File STAB by B. de Bruine, 20 okt 1986 " 
1 SAVE &l.tab 200, 20F ;- 

ttl "tfpDos 65 Time and date: 7.s file 7.s Page Y.d" 

$i f i i i i i i i i i i i i i f f i 1 t i i f f i i 

;Program name: EXPAND T" ■ • 

;Date: 20 EN 21 OKT. 1986 " ■ 
;Programmer: Bram de Bnuir** , 
;Hardware: DOS 65/2.01 

;Purpose: PRINT TABS RELATED TO THE TABTABLE IN ED. ' 

;Program description: SEE MANUAL EXPAND. SHORT ; .■• 

^ 3jC l)C 3(C 3|C3|C)|C9|Cl|C3|C3|C3|C3|CJ|(9|C 3(t 3(t l(t 3(t 3(t 3|C 3|C J|t JfC 3|C 3|C 





ORG 


»A000 






;ddddd 


dos 65 


i/o ddddd 


PRINT 


EQU 


»C03B 






EQU 


«AA5C 




CUT 


EQU 


#C023 






; eeeeti' 


mixtor 


paraiR#t«iF« tteeee 


EDITOR 


EQU 


*1000 




LINECT 


EQU 


»114B 


;Check if text in textarea 


LOME 


EQU 


*00 


;Start of textmemory 


CEME 


EQU 


$0A 


:End of current textarea 


H I HE 




♦OS 


jMaximal available textmemory 
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DOS— <Si5 Cmiirrxmxr 



TBBF EQU $200 ;Actual tabpositons 

STACK EQU *100 ; User&system stack 

;ccccc constants ccccc 

HT EQU *09 

ESC EQU *1B 

ENDCOL EQU Si }M^x;i(nal .r^ght tabposition 

NUMTAB EQU 16 if^iiKtroal allovied tabs 



EXPAND 


LDY 


#0 








JSR 


INIT 








J MP 


START 








J V w w 


variables used by expand 


s/vvvV 


TXT 


EQU 


*fO } Points to 


actual fetched character 


MEND 


EQU, 


TXT+2 ; Actual endaddress of the textarea 






TXT+4 ;Savebytes 


for mend 


CQL 




1 ;xposition 


of current character in line 




'R£# 


I ; Indicates 


which 


tab is the actual tab (0 


BP INDEX 


RES 


1 ; Number of 


spaces to be expanded 


YP 


RES 


1 ;Message pointer 




OwrtlNL- All! 




INCTXT 










COL 








LDA 


CTXT],Y 








DClul 


EXIT 




;End of file ? 
















NEWLINE 




;NeM line ? 






#HT 








BNE 


SCANLIN 




jMorizontal tab ? 




J MP 


EXPHT 






hif 1.1,1 IT KiM^ 

NEWL INt 


JSn 










J MP 


SCANLIN 






EXIT 


LDA 


TXT 








CMP 


LOME 




;Is there a text present 




BNE 


QUIT 








LDA 


TXT+1 








CMP 


LOME+1 








BNE 


QUIT 








JSR 


PRINT 








FCC 


EMPTY TEXTBUFFERNa' ,*0D 


,0 




J MP 


QERR 




;QF 


QU I T 


JSR 


PRINT 








FCC 


»OD,'FILE EXPANDED 


. .READY' ,*0D,0 


QERR 


JSR 


LINECT 




; Update memory pointers / 




LDA 


♦♦EDIT0R&255 








STA 


LC 








LDA 


#EDIT0R>>8 




; Switch LC to ed/.tor 




STA 


LC+1 








RTS 








EXPHT 


INC 


TAB 








LDX 


TAB 








CPX 


#NUMTAB 




jTab overflow ? 




©MI 


TABPOS 






TABFLOW 


JSR 


PRINT 








FCC 


UNDEFINED TAB\a\r 


■ ,0 






RTS 






;Quit fast 


TABPQS 


LDA 


TBBF.X 




;Load tabposition 




GMP 


tENDCOL 




; Right tab border 
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i^ issr ]Ksri^3^ 



DOS— ©!-5 dGtrm-i 



MOVE 



INSERT 



REPLAC 





1 irtjpF l_LJirl 




unr' 




{ lappos cox f 


o cr n 


t A PH 1 




BM I 


EXPHT 




SEC 






SBC 


COL 


; Spindex^tabpos-'col 


STA 


SPINDEX 


{Number of spaces 


BEQ 


REPLAC 






5pindex=0 then replacs 


ht by space 


DEC 


SPINDEX 


{Exclusive of ht 




@e^irMi4i? Kin 




1 nv 

i—U J 


It A 




L. L/H 


r Mf^MI'^ 1 V 
LI lt.lNU J If Y 




1 nv 


cp T MHP y 
D" X iNUC A 










J3R 






LDA 


TX T + 1 


• F v^t* V t h i no movecj 


PMP 


MPNn+ 1 

1 I^INU • A, 






1 IIJVCi 




L-LfH 


T Y T 
1 A 1 




PMP 


1 It^lNU 




□ Nt. 


nu vt. 




I.UA 


CD T Nine Y 




T W¥ 

1 IN A 






1 n V 

L U Y 


Tt u 


f xnserw spaces 


UUH 






!3 1 H 


rTVTl V 

L 1 A 1 J 1 Y 




J SR 


1 NL I A 1 




INC 


COL 


;And update col 


DEX 






BNE 


INSERT 




JSR 


UPDEND 


|Up#ate trtend after expansion 


JMP 


SCOMP 


{Continue scanning 


LDA 


#$20 










JMP 


SGANLIN 





; mmmmmmmmmmmm macrodef inition mmmmmmmmmmmmm 



COPY 


macro 


a , b 


;capy b to a (a:=b) 




LDA 


b 


} a : =b 




STA 


a 






LDA 


b+1 






STA 


a+1 






RTS 








en dm 








; i|c»iKiic« 


subroutines *«*»* 




DECMENP 


pm 








DEC 


MEND 


; Mend : i=mend-l 




LDA 


MEND 






CMP 


#*FF 






BNE 


DECEX 






DEC 


MEND+1 




DECEX 


PLA 








RTS 






INCTXT 


INC 


TXT 


iTxt:=txt+l 




BNE 


INCEX 






INC 


TXT+1 






LDY 


VP 





as 



SCREEN 



INCEX 



I NY 
STY 
LDA 
BNE 
LDY 
STY 
JSR 
LDY 
LDA 
CMP 
BNE 
JSR 
FCC 
PLA 

J MP 

RTS 



BUSTEXT FCtS 
TXTLQME COPY 
MENDCEME 
SENDMEND 



UPDEND 



LDA 

CLE 
ADC 

STA 
LDA 
A'DC 
STA 
RTS 



YP 

SCREEN 
#«FF 
YP 
OUT 
#0 

TXT + 1 
HI ME 
I NCEX 

PRINT 

'OUT OF MEMORY ERROR •,*0D,0 

; Destroy rwturnaddr. of inctxt and qf 

mm 



'Wmt^MlE IS A HONOURABLE THINB ' ,0 



;Sign of busy 
;End memory test 



TXT , LOME 

COPY MEND, CEME 

CC^¥ SENDifiif® 

SEND 

SP INDEX 
MEND 
SEND+1 
#© 

HEND+1 



; Txt : = lome 
; Mend : =ceme 
f Send i^fnend 

{Update mend to current endaddress 



RESVAR 



JSR 


TXTLQME 


;Setup pointers 


JSR 


rsmmsmm 


; and initialise variables 


LDY 






STY 


YP 


;Reset busy textpointer 


JSR 


RES¥AR 




RTS 






LDY 


#*FF 




STY 


TAB 


;Reset actual tabcounter 


1N¥ 






STY 


COL 


;Reset eharactfer counter 


R rs 







END EXPAND 



Expand vervangt alleen tabs door spaties die in het ramgeheugen van de 
editor aani^ezig zijn. Wil men een file bewerken die niet in het werk — 
geheugen van ED past dan tmrnt met 1®C C Update «n/of IN/OUT commando's 
steeds een nieuw stuk tekst ingelezen worden . 

Expand wordt 'gerund' vanuit de commandmode van ED, daarna kan het op 
schijf gezet worden, en giepriflt »Oi*dl«ft ©f( Mw pft»|#r mm% men norMdl 
dos-65 commando. 



3. SUBDIRECTORIES 
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Oin een subdirectory te bevorderen tot de def au 1 td i rec tory moet men 
gebruik maken van het ASN-commando . Qm bijvoorbeeld van directory A de 
def aul tdi rec tory te maken tlkt timfit ASH u*A/ 

Schakelt men veel om van subdl rec tory , dan is het handig ««■ hiervoor 
een commandfile te maken: 
ft asn u=a/ 
B asn u=b/ 

enz. Alleen @, d en g geven problemen omdat het afkortingen zijn van 

bestaande commando's, gebruik deze dirs dan niet. Men kan nu door 
simpelweg B' in te tikken, directory B op de userdrive 
def aul tdi rec tory maken. 

4. SYSTEEM FOUTEN EN/OF ONeEMfil^KeN 



laatste update: 28 j an 1988. 
1. 1/0-65 



a. Cursor besturing I/O 65 /Graphics Controlcodes voldoen allemaal aan de 
huidige gangbare standaard, behalve de cursor home code. Dit is *1C 
i.p.v. tlE. Wi 1 men standaard zijn met andere 

machines, dan kan men h»t best« fOwel op *iG als *1E een JSR HOME 
uitvoeren. 

b. Direct cursoradresser ing met gaat bij Do5-65 nog steeds fout. 
(Remedie: Gebruik 1065 pr in tcommando ' s 6502 kenner nr 53.) 

c. Zijn de Braphics ontleend aan een standaard ?? Het zou leuk zijn als ze 
bv ^iditelcompatible zouden zijn. Dit is heel goed mogelijk. Alleen ESC, 

LP, FF en CR zouden hun oor s pr on k e 1 i j ke code (kunnen) behouden . Inmiddels 
heb ik zelf een karak tergenera tor gemaakt volgens de in terna t i ona 1 e 
videotexstandaard. fnloggen op vidSteldatabanken is nu zonder meer 
mogelijk, en (grafische) basicode 3 ligt nu ook binnen het bereik van 
dDS-65 I 

d. CLOCK Het zou erg handig zijn als er een variabele in 10/65 zou zijn die 
men kan test#n systeem clockfreq. Bv l=lmh2, 2«2mhz etc. Bij het 

maken van programmas kan dan dit byte gesampled worden, Bn kan men 
ver trag ings 1 ussen ( bv ) aanpassen aan de c 1 oc k f requen tie . 

e. Ik mis een entry in de jumptabel om de tijd op de statusregel te printen. 



2. Dos-65 

a. DOS-65 wildc. SV bij DIR t.mac* wordt geen match gevonden als de "c" van 
mac het veertiende karakter is 1 '. ! Er wordt dus 1 karafcter te weinig 
gechec k t . 

b. Bij output redirect ( > -tf ) mis ik e«n OptSs am grafische 
attributen eruit te kunft*fl filt«r«r»« VoortWWld.S > -fef ¥©9. mon 
MON> h 400, 4ff 

01234567B9ABCDEF 
0400 : 90 00 00 00 80 00 18 50 17 7F 80 CO 00 30 00 AO F ' SF ' GF ' GF QF xGPF 
0410 : 40 20 CO 4Cr 23 CO m 12 CA 4C IE CA 4C 1® F© *E L L#LFrGLF~BLFxBL 
Duidelijk is te zien dat sch#rmattribuutcodes als ESC F, ESC G, ESC n, 
ESC i, enz alleen maar ontdaan worden van de ESC, terwijl de vervolgcode 
niet gefilterd word. Dit komt omdat MON de grafische mode aan/uit 
schakelt om de graphic ( bv $80 op locatie 4400) te kunnen printen. 
Hon genereert dan: ESC F ' ESC Q. Om de hexdump met Ed te kunnen bewerken 
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zou alleen de ' geprint moeten worden. > -tfg weg mon, met -g : filtmfr 
schermcodes . 

e. Ms de centrenicsprinter 'net r«ady' i«> hangt het systeem. Beter zou het 
zijn om een time-out beveiliging in te bouwen en/of een test of de 
breektoets ingedrukt is. 

3. Utilities 



a. Copy: Bij copy komt het bij mij regelffiatig voor cJafe rta a¥]@op beide 
schijven dezelfde naam gekregen hebben . Dus copieer ik file 1 van schijf 
1 naar schijf 2, dan hebben ( soms ) na afloop de schijven beiden de naam 
schijf 1. 

b. Help. Mag help geen info geven over utils die niet op schijf s: staan ? 
4. ED: 



a. Direct nadat de editor geladen Is, komt er soms nogal wat rommel op 
het scherm. Na een "^R is alles weer ok. 

Ook search (esc F,A) gaat dan niet goed . (data verkeerd op scherm ?) 
cursor wordt een paar regels voorbij het te zoeken woord geplaatst. Bij 

de volgende ESC : is alles weer in orde. 

Dit is waarsc hi j n 1 i j k een scrollerror. (geconfig. voor 6845) 

b. Wordt in #e commandmode van ED een Utility gerund, bv ! SEE file, dan 
heeft eeft ''C tigdens de uitvoering van SEE tot gevolg dat er teruggekeerd 
wordt naar Dos-65. De editfile is dan verloren '. Men moet In dergeliike 
siuaties een geven. Dit is niet duidelijk gedocumen teerd . 

c. Treedt er een fout op ( bv file not found/read error) na de aanroep 

ED FILE , dan gaat EO dir»ct in de schemmmode , zodat de foutmelding niet 
meer te lezen is. Oplossing: Check eerst met ESC Z of d«r fil© ¥ml 

ingelezen is. Mooier zou het zijn als ED na een error in de commandmodiB 
blijft, zodat men de foutmelding kan lezen. 

d. Als er geen plaats meer is voor .b in de filenaam, maakt ed na een EX 
command een backup. edd file. Het zou handig zlin als Ed even een meldictg 
geeft in de trant van 'backupp.edd in stead of .b' zodat de gebruiker 
desgewenst zelf kan renamen . De volgende backup van een andere file met 
lange filenaam overschrijft namelijk de vorige. 

Deze fout heeft misschien iets te maken met fout 2. a van dDS-65 ? 
e* ESC U is erg handig bij lange files, tenminste als de goede schijf in de 
drive zit. Heeft men per ongeluk een andere schijf in de drive zitten, 
waar de filenaam van de te editen file niet opstaat, en men geeft een EX 
dan krijgt men de tnelding: output. edd not found, gaan we met C terug om 
te kljken wat er nog in het geheugen staat^ dan blijkt dit gewist te zijn!l 
. Dmdat ik de diskdrive hoorde schrijven, ben ik gaan zoeken naar de file. 
Deze bleek gewoon over een aantal andere files heengesc hr even te zijn, 
ZQNDER dat een filenaam was toegekend aan die file. Kortom: de hele disk is 
een puinhoop. 

Waarsc hi j n 1 i j k gaat ED er vanuit dat de oorspron k e 1 i j k e schijf nog in de 
drive zit, en schrijft hij -zonder enige controle- de rest van de file 
weg op tM nieuwe schiif , exact op de plaats waar hij het ZOU schrijven 
als er geen schijven verwisseld zouden zijn. Dit werkt zeer demoti verend . . 

5. Mon 65 



a. MQ|SI6^: Vi»r*anf het ECxecttteJ G^/mm^mdm Acmr BC#ii. Verw#rrirag t«»sen Dos en 
Mon eoiHtinaridtt ' m zijn dari uitgttslstiBAi. Ve-r-ViKri^ de ??? d@or PIQS ^. 
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b. MQN65 2.06: Let op dat een breakpoint na het runnen van een programma 
waar hli t.egen dat breekpcmt &pl£)Qipt, #ijitofflatisch verMiiderd wordt. Dit 
is soms heel handig. In loops is t>et minder handig. 

€• Idee: Display hexdump op scherm met vaste lay-out, dwz begin altijd' 
met kolom 0: Dus H 403,ffff word dan als volgd gelist: 



O 



400 
41© 



3 4 5 

XX XX XX 



enz , 



Oils op 401/2/3 staat geweon een spatie. Dit leest wat makkel i j ker . 



Pas op bij conversie van moserfiles naar AS, of bij toekenning van een 

waarde aan een label, waarbij die waarde pas verderop in de file bekend 
wordt. As maakt ze dan #0 en geeft geen fotitmeidln^ t Moser slikt dit 

allemaal , maar AS niet '. '. (As Rent geen forward label referencing) 

; F i 1 e tes 1 1 abe 1 

;Oeze file toont aan dat AS bij een toekenning van een waarde aan een label, 
Sdeze waarde vooraf bekend moet zijn. 



AOOO 



ORG 



*A000 



EOOO OUT EQU 



0008 LABEL EQU 



SEOOO 



TXT-MESSA^ ff»**LABEL = 8 ««»* 



^ 3|C ]|( l(t 



Aao®' 


■At w 


■LDX 


#LABEL ; 


**** LABEL = 0 


A002 


BD mm LOOP 


LDA 


MESSAGE, 


X 


A005 


20 ODE© 


JSR 


QUI 




A008 


E8 




INX 




A009 


C9 03 


CMP 


#*03 


;Etx ? 




m F5 


BNE 


UOtSP 




AGO0 


60 




RTS 




AOOE 


5741524E49 




FCC 




AQ13 


4e47®S 












TXT 


POC 





fmm m 

LABEL 0000 LOOP 

Errors detected: O 



END 



global labels 
A002 MESSAGE AOOE W^T 



warn rm 



Zorgt men nu , dat LABEL pas zijn waarde krijqt als de argumenten MESSAGE 
en TXT bekend zijn, dan gaat alles goed . (dus na TXT FCC ERROR' ,3 paS 
Lftiek »m TXT-^Mg^AQEJ 

Ook een goede oplossing Is: 
AOOO LDX #T XT-MESSAGE 

b. Bij r/w diskerror gaat as gewoon door, zonder enige melding ! 1 ! 

Indien «e<i> libfile niet feppend kan warden gaat AS <3ok gewoon door. 
Beter t&a fmt zijn ewn een fiBtitiftftldin'g fee geven en te stoppen. 
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IC • Een optie am een bepaald deel we 1 te assembleren, maar niet naar 

de .bin file te schrijven heeft AS helaas niet. Men kan dan een 
assemb 1 erprogramma als label file gebruiken. Volgens miS k'iW #^ 
het niet, oqk niet met conditionele pseudos. 

7. Dos-65 basic v2.00 

a. KB9 Basic_2.00 Bij een Save "file" commando wordt alle data vanaf $400 

op schijf gezet, terwi j 1 het basic werkgeheugen pas bij 
ca. »2000 begint ! 

Na een Load "file" commando kan ffteft d#ze tile 20fid#rfn»er 

RUNnen , maar als men een regel toevoegt, wordt ( soms ) vooral 
bij lange files, het programma vernietigd vanaf het nieuw 
ingevoerde regelnummer, 

ibm Problemen met subdirectories bij 9 karakters tellende filenamen 

( voor de pun t ) 

BV: LOAD"f /f ruitmach" geeft foutmelding. 
en §j%ve**f /e23i*B6TS9»' slaat de filenaaim op #ls: 

e2345678x . BAS (met x=wi 1 1 ekeur ig ) 

QPLOSSING: file copieren van subdir naar hoofddir en dan 
Xm^mn #f S'd^yeny ttf mmt atsn* Wit i» natinirliife mm^ Impmiddel . 

e. Bij output redirect > -tf fllii g O klopt de schermpresentatle niet mieert 

Bv„ bij het invullen van het bel astingf ormul ier , wordt alles op de 1© 
regel geprint. Waarschi jn 1 i j k worden de linefeeds gefilterd ?? 
Cursor to werkt wel goed . 

KB9 Basic_2.i0 LIST 10-50 bv is onmogelijk 
!#» Foutcorrec tie , inserten, deleten van een regel, he##t tot 

gevolg dat de hele basicfile vernietigd wordt. 

Indien een letter wordt ingetikt als een getal "verwacht wordt 
geeft basic geen 'redo from start' maar een syntaxerror 
Bovendien wordt het programma afgebroken I 
etc. etc. 

C 

a>. c-omplliir vatngt ongedef inieerde labels niet. DJt NcJitit sr p^s tijdens 
het assembleren uit, en dan zijn er al veeeeele MlttutiCR ^arstreken . . . 

b. Input '^D van toetsenbord is afwijkend. 

9. Manuals 

a. In de manual DOS— 65 ENTRIES van Wim Schimmel staat een fout 
bij Wet beschrijven van SOFT: (option scanner) 
pagina 20: most zijn: X=0110 0000 

<> 
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Getallen (deel 1) 

Door Gert van Opbroek 
Bateweg 60 
2481 AN Woubrugge 

Iiileldlag 

In deze serie wil ik beschrijven hoe een 
computer omgaat met getallen en hoe hij er 
'WS& rekent. In dit eerste deel worden met 
MMmm de gebele getallen behandeld. In bet 
tweede deel wll Ik de drijvende-'ko'mffla 
getallen (floating point) behandelen. In 
het derde en eventueel volgende deel wor- 
den onder andere de floating point copro- 
cessors behandeld. 

Sborten getallen 

In de wiskunde kent men diverse verzame- 
lingen van getallen. In de eerste plaats 
:zt^n dat de Natuurlljke getallen. Dit zijn 
4m a|,#t ffl^egatteye gebele f,^t alien 0, 1, 2, 

3, .* terder zt^n' er de CTeliele 

getallen. Dit zijn de getallen 0, -1, 1, 

-2, 2, -3, 3, Een derde verza- 

ttiiling zijn de zogenaamde Rationale getal- 
len. Dit zij|n alle gehele getallen uitge- 
breid met alle bretJken dtis o.a. 1/2, 
127/255, 11 13/ 17 etc. Als vierde noem ik 
de reeMe getallen. Dit zijn de rationele 
getallen plus de getallen die niet als een 
breuk te schrijven zijn. Hiervan zijn 
wortel 2 en het getal pi ii»®!orbeelden. 
Behalve de hiergenoemde verzamelin^eni, 
zijn er nog enkele, maar voor dit ve^haal 
zijn dit de belangrijkste. 

Floatiaog Point getallen 

Om twee rationele getallen hij elkaar op 

te tellen moet nogal wat werk verzet wor- 
den. Als voorbeeld de volgende rekensom: 

3/4 + 1/3 = 9/12 + 4/12 = 13/12 = 1 1/12 

Omdat dit, vooral bij grotere bereke- 
ningen, nogal 0mslachtlg ls» werfct »en 
meestal met een decimale represent atle: 

3/4 = 75/100 = 0.75 
1/3 = 33/100 = 0.33 

3/4 + 1/3 « 0.75 + 0.33 = 1.08 

In het bovenstaande voorbeeld is de gelij- 

kenis : 

1/3 = 33/100 

niet geheel correct. Het is zelfs zo dat 
het getal 1/3 helemaal niet decimaal weer 
te geven valt, daarvoor zouden we onelndlg 



veel cljf ers nodig hebben. Be f otit die op 
deze manier gemaakt wordt, noemen we Af— 
rondingsf out. In de praktijk heeft men het 
volgende afgesproken; 

Bereken bet dgclmale getal voor het aantal 
gewenste decimalen plus een. Is de laatste 
decimaal 5 of hoger, verhoog dan de op Sn 
na laatste decimaal met §Sn» Voorbeelden 
voor twee decimalen: 

1/3 = 0.33, 1/6 = 0.67, 1/8 = 0.13 

Als we nu maar genoeg decimalen (cijfers 
achter de komma) gebruiken, dan is de 
berekenlng toch nog voldoende nauwkeurig. 

Vooral blj vsenBenigvwldlgea en delen komt 
het nogal eens voor dat we hele grote en 
hele kleine getallen met elkaar moeten 
vermenigvuldigen of op elkaar moeten 
delen. Een voorbeeld: 

E&tt schroef weegt 1.432 gram of 0.001432 
kil@g¥d1i» Bj&e¥#^l wegen 200 doosjes met 
een gros (144) van deze schroef jes? 

Aantal schroefjes: 200 * 144 = 28800 
Gewicht: 28800 * 0.001432 = 412.416 kg 

Om deze reden heeft men de drijvende komma 
notatie ingevoerd. Hierbij wordt het getal 
geschreven als een product van een zoge- 
naamde mantissa en een exponent. In het 
decimale stelsel gebruikt men uiteraard 
een decimaie expeaeat* Als voorbeeld: 

0.001432 = 1.432E-3 
28800 = 2.8800E4 

Dit wordt uitgesproken als ?ai komma vier 
drie twee maal tlen tot de macht drie. 
Behalve de bovenst««»de notatie zijn er 
nog een paar maar dit is de meest gebrulk- 
te notatie. Opvallend is, dat de decimale 
punt altijd achter het eerste cijfer 
staat. Het is een afspraak dat de exponent 
zodanlg is, dat de decimale punt direct 
achter de eerste decimaal tereeltkdittt. Een 
getal dat aan die afspraak voldoet, noemen 
we genormeerd. Omdat de komma als het ware 
naar de goede positie drijft, noemen we 
dergelijke getallen floating point numbers 
(drijvende komma getallen). 

Getalstelsels 

Het vervolg van dit artikel gaat uitslui- 
tend over gehele getallen. De uitwer- 

king van de floating point getallen komt 
in dtel t aan bod. 
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Als we het volgende getal nader bekijken 
dan valt ons lets bljzondeet Wpt 

14876 » 1 * 10000 + 
4 * 1000 + 

« i m + 

7 * 10 + 

6 * 1 

Hader uitgewerkt is dit: 

14876 = 1 * 10 tot d& wmht 4 + 
4 * 10 tot de mactit 3 + 

8 * 10 tot de macht 2 + 

7 * 10 tot de macht 1 + 
6 * 10 tot de mgKiht 0 

Als men dus de posities van de cijfers in 
het getal van rechts naar links nummert, 
te beginnen met nul, dan geeft de plaats 
de macht van 10 waarmee het betreffende 
cijf er vermenlgvuldigd moet worden aan. 

Nu kan men zich afvragen waarom we in het 
het dagelijks leven gebruik maken van 10- 
machten en dus zodoende van het tiental- 
lige of decimale stelsel. Het antwoord 
hteTP^ap i* eigealijk zeer simpel: omdat de 
mens nu eenmaal tien vingers heeft. Er 
zijn gebieden waar men, vooral bij maten 
en gewichten, lange tijd gebruik gemaakt 
heeft van het twaalftallige stelsel maar 
langzaam maar zeker gaat men steeds meer 
over naar het tientallig stelsel. De be- 
grippe© ii©«i|li fseil* kaaen uit het 
twaalftallige stelsel immera: 

een dozijn = 12 

een gros = 12 dozijn = 144 

320 decimaal is dus 2 gros 2 dozijn 8 dus 

$M jyai.'itet eMtUtitllife.' KtcOsel' 

Hensen die de prograwmeertaal FORTH op hun 
Sfsteem hebben kunnen in elk getalstelsel 
iltrlcett doer het Ititypen van de opdracht: 

n BASE ! waarbij n het grondtal is. 

BftiSr een computer werkt met zogenaamde 
MIs iW-mtry malt), wordt bitMUitt een com- 
puter gebruik gemaakt van het grondtal 2. 
Een computer werkt dus in het tweetallige 
of binaire stelsel. Een getal als 145 



wordt dan in een computer wme^i^m-mm als: 



1 


* 


128 




1 




2 


tot 


de 


macht 


7 


0 


* 


64 




0 


* 


2 


tot 


de 


macht 


6 


0 


* 


32 




0 


* 


2 


tot 


de 


macht 


5 


1 


* 


16 




1 




2 


tot 


de 


macht 


4 


0 


* 


8 




0 




2 


tot 


de 


macht 


3 


0 


* 


4 


m 


f 


* 




t&t 


die tiae%t 


2 


0 


* 


2 




0 


* 


2 


tot 


de 


macht 


1 


1 


* 


1 




1 


* 


2 


tot 


de 


macht 


0 



Dus: 



145 (10) = 10010001 (2) 



Omdat lange reeksen van enen en nullen 
lastig te lezen zijn, worden in de prak- 
ti-Jjk vaak vier bits samen genomen. In dit 
geval werken we dan in h^t hexadecimale 
Czestientallige) stelsel* sommige eon- 
puters (PDP-11) werkt men in het octale 
(achttallige) stelsel. In ons voorbeeld: 

145 (10) = 10010001 (2) = 91 (16) 

Uit dit voorbeeld is waarschijnlijk wel 
duidelijk, dat het noodzakelijk is dat het 
grondtal aangegeven wordt. In het zestien- 
tallige stelsel wordt dit wel gedaan door 
een voor het getal te zetten. In het 
binaire stelsel wordt wel een voor het 
getal gezet. 

Binary Coded Decimal 

Behalve de binaire getallen zijn er ook 
edlKputecs Sl» gel>rvlk maken van een andere 
represeat:#t4evorm. Dit is de zogenaande 
Binary Coded Decimal of BCD-notati#. ©6 
6502 kan ook van deze represent at ie ge- 
bruik maken. In de BCD-notatie wordt uit- 
gegaan van het tientallige stelsel. Elke 
decimaal ^ordt dan weergegeven met een 
bitpatroon vier bits: 

0 = 0000 

1 = 0001 

2 = 0010 

• • • • • • 

8 = 1000 

9 = 1001 

Het voordeel van deze notatie is gelegen 
in het gemak waarmee de conversie van en 
naar decimale getallen gemaakt kan worden. 
Nadelen zijn het felt M&t 4<t tekenalgo- 
rithmen moeilljker zijn dan bij een bi- 
naire representatie en het feit dat er 
ongeveer 30 % meer bits voor nodig zijn om 
een getal weer te geven. BCD wordt vooral 
gebruikt op de IlK mainframes. Deze 
machines worden met name gebruikt voor 
administratieve toepassingen en juist daar 
speelt het gemak van de coTiversle een 
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1 : Signed magnitude: 



Het optellen In het blnadre stelsel 

Hoe men in het decimale stelsel moet reke- 
neit» is icrdereen wel Ibefeend. Hoe gaat 
optellen nu in zijn werk in het binaire 
stelsel? Stel we willen de (decimale) 
getallen 21 en 15 bij elkaar optellen: 



21 
15 



10101 
0111 i 



De bewerklng gaat nu van achter naar voren 

als volgt: 



Het voorste bit van het getal geeft aan of 
het getal positief of negatief is. Dit is 
dus eigenlijk hetzelf de als in het deGl- 
ttdle stelsel i^aatMj ^ een '-'teken voor 
het getal plaatsen* 



Voorbeelden: 



6 
1 

- 1 
32767 
32767 



0000 
0000 
1000 
0111 
1111 



0000 

0000 
0000 

1111 
nil 



0000 

0000 
0000 

nil 
nil 



0000 

0000 
0000 

nil 
nil 



1 + 1 
1 + 0 
+ 1 

+ 0 

+ 1 

+ 0 



= 0 

* t 
+ 1 
+ 1 

+ 0 
+ 0 



# 

1 

0 
0 

1 



en 1 onthouden 
ign 1 entttoudea 
en 1 onthouden 
en 1 onthouden 
en 1 onthouden 



©e mitkomst is dm 100100 = 36. 

Opvallend is, dat we bij het optellen van 
twee getallen met vijf bits een getal met 
zes bits als resultaat krijgen. Dit is in 
het algesfieen zo, het optellen van twee 
getallen vatl n bits levert als resultaat 
een getal van maximaal n+1 bits. Dit kan 
op een computer die met acht bits rekent 
tot resultaat hebben dat we een getal met 
negen bits als antwoord krijgen. Dit bit 
kunnen we echter niet bij de laagste acht 
bits opslaan. Als oplossing hiervoor heeft 
men de CARRY vlag ingevoerd. In deze vlag 
wordt dit negende bit opgeslagen en deze 
kan dan automatisch weer bij de volgende 
optelling meegegenomen worden (zoals S&i 
onthouden bij een optelling). Op deze 
manier kan men met een acht bits computer 
ook grotere getallen gebruiken. In de 
praktijk worden op acht bits computers 
meestal getallen van 15 bits of 16 bits 
gebruikt. Bij een 15 bits getal heeft het 
f#0fste bit een andere functlet ifc kom 
daax nog op terug. 

foattt&ve en negatleTe getallen 

Als we uitsluitend met positieve gehele 
,getallen werken, dan kunnen we alle bits 
van het getal gebruiken. In dit geval 
spreken we van zogenaamde Unsigned 
Numbers. Als we zestien bits voor een 
dergelijk getal reserveren, dan kunnen we 
dus getallen van 0 tot en met 65535 
gebruiken. In de praktijk wlllen we ec%ter 
ook vaak met negatieve getallen tfesfeiBB* Om 
deze getallen ook in het binaire Stelsel 
uit te kunnen drukken zijn een viertal 
verschillende mogelijkheden aanwezig: 



Bij signed magnitude hebben we twee repre- 
sentaties vmt bet getal 0. Een positieve 



en eea niigatfe^ versle: 



1000 0000 0000 0000 
2: Excess: ' 

In dit geval wordt nul niet $ijife|»|r<e»«%^ 
teerd door allemaal nullen tna'ar ^oor een 
ander bitpatroon. De overige getallen 
worden dan ten opzichte van dit binaire 
getal Mtger^KQi* 

Voorbeelden in de excess 3276B-msta£iBi 



0 
1 

- 1 

32767 
32767 



1000 

1000 
0111 

nil 

0000 



0000 

0000 

nil 
nil 

0000 



0000 

0000 

nil 
nil 

0000 



0000 
0001 

nil 
nil 

0001 



In dit voorbeeld is het getal dus het 
volledige zestien bits getal - 32768. In 
de exce s s-not at ie zijn er fBfeeC l|(|gaft:JLes^ 
getallen dan positieve. 

3: I's compleaent ioam'tt coapleaent): 

In deze represent atie krijgt'men van een 
positief getal de negatieve versie door 
van alle bits het complement te neiie^ (dus 
een 1 wordt een 0 en andersom)* 



Voorbeelden: 



0 
1 

- 1 
32767 
32767 



0000 
0000 

nil 
01 u 
1000 



0000 
0000 

nil 
nil 

0000 



0000 
0000 

nil 
nil 

0000 



0000 
0001 
1110 

11 n 

0000 



Bij I's complement geeft het hoogste bit 
altijd het teken van het getal aan. Ook 
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bij I's complement hebben we een positieve 
eii een negatleve versie van het getal 0: 

0000 0000 0000 0000 

1111 nil nil nn 

4: 2's ccn^IeBeat (two's cm^ilemmt) : 

ft g^5|*lifftept krijgt men de negatieve 
irersie viam ©em getal door eerst bet I's 
mmfX&mesit %% tmwm^ ^ ism MJ M&alre 

Voorbeelden i 

0 = 0000 0000 0000 0000 

1 = 0000 0000 0000 0001 

- 1 = nil nil nil nn 

32767 = 0111 nil nil nil 

- 32767 = 1000 0000 0000 0001 

Deze representatie kent dus, evenals de 
excess-notatie slechts fai, positieve nul. 
Maar ook meer negatieve |>0ji44>eve 

getallen. 

Natuurlijk heeft elke representatie zijn 
specif ieke voor- en nadelen. Lat€ii nis mwm 
een simpele optelling in alle notaties 
bekijken: 

-1 + 2 = 1 

Signed Magn4,tiiide: 

1000 0001 + 0000 0010 » 0000 0001 

In dit geval moeten we, evenals bij de 
decimale notatie het voorbeeld omwerken 
ftaar 2 - 1 - 1« 

Excess 128: 

Gill nil + 1000 0010 = 1000 oooi 

Bij execess vraagt het voorste bit spe- 
ciale aandacht. Men moet altijd het getal 
nul = 1000 0000 bij het resultaat optel- 
len. De overige bits verkrijgt men door 
ttHiMttdige techt-toe reeht-a^ bewerking. 

I's complement: 

nil 1110 + 0000 0010 = 0000 oooi 

In dit geval wordt de carry die uit de 
®f>telling van het voorste bit komt nog 
eens bij het resultaat opgeteld. Deze 
bewerking wordt carry around genoemd. 

2's complement: 

nil nil + 0000 ooio = oooo oooi 



Bij 2's complement is optellen van posi- 
tieve en negatieve getallen recht-toe 
recht-aan en geeft, ook bij tekenwis- 
seling, geen cowplicaties. ®p Mjma alle 
hedendaagse computers wordt voor de repre- 
sentatie van gehele getallen gebruik 
gemaakt van deze notatie. Voor de verdere 
beschrijving van de gehele getallen 
(signed numbers) ga Ik uit van de 2's 
complement notatie. 

Het iif ttiMlm tin jf^ele getallen 

Als we twee gehele getallen van elkaar af 
willen trekken, dan wordt over het alge- 
laeen de negatiei^e Wantde van de twitie 
operand bij de eerste opgeteld. De meeste 
computers hebben wel een af trek-instructie 
maar in de praktijk zal de processor in- 
tern deze operatie uitvoeren. De carry is 
in dat geval een zogenaamde borrow. Dit 
%,ielk seggen dat het resultaat van de 
aftrekfcing nog met 1 verlaagd moet worden. 
Bij de 6502 geeft de carry de inverse van 
het borrow bit weer; heeft men geen 
borroffi 4im meet de carry-vlag gezet zijn. 

Overflow 

Als we twee relatief grote getalllen bij 
elkaar optellen, dan kan het voorkomen dat 
we inplaats van een positief getal een 
negatief getal krljgen. 

Voorbeeld: 

20000 + 30000 = 

0100 1110 0010 0000 + 0111 0101 0011 0000 

- 1100 0011 0101 0000 

Deze situatie noemt men Overflow. Een- 
zelfde situatie kan voorkomen als men twee 
relatief grote negatieve getallen bij 
elkaar optelt: 

- 20000 + - 30000 - 

1011 OOOI 1110 0000 + 1000 10101101 0000 

= 0011 1100 1011 0000 

Deze situatie kan worden herkend aan het 
volgende feit: 

Als de carry van de optelling onge- 
lijk is aan de carry bij de optelliaf 
van het tweede bit van links. Btts ail* 
de carry naar het tekenbit ongelijk 
is aan de carry uit het tekenbit. 

Een overf lowconditie wordt over het alge- 
meeti door de priiitcessor herkend en aangt^g^ 
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ven met een overf lowvlag. 
Rekenalgoritaen 

De algorithmen voor het optelJUefi fttt «.#- 
trekken zijn reeds behandeld. Vodt de 

volledigheid nog twee korte stukjes 6502- 
code voor daze operaties op 16 bits getal- 
len: 



CLC 




5 


Clear carry flag 


CLD 




> 


Binairy mode 


LDA 


ADRl 


y 


LSB of operand 1 


ADC 


ADR2 


y 


Add LSB of opers^d Z 


STA 


ADRl 


> 


LSB of result 


LDA 


ADRl-1 


• 

> 


MSB of operand 1 


ADC 


ADR2-1 


> 


Add MSB of operand 2 


STA 


ADRl-1 


5 


MSB of result 



In het bovenstaande voorbeeld wordt ope- 
rand 2 blj operand 1 opgeteld. Na de op- 
telling van het MSB geeft de overf low-ylag 
aan of er een overf lowconditie opgeti^^sa 
is. Met een BVS kan men dus eventueel een 
f out afwikke ling activeren. 



SEC 






J Set carry flag 


CLD 






f Btnmity «bde 


LDA 


ADRl 




; LSB of operand 1 


SBC 


ADR2 




; Subtract LSB 2 


STA 


ADRl 




; LSB of result 


LDA 


ADRl- 


1 


; MSB of operand 1 


ADC 


ADR2- 


1 


; Subtract MSB 2 


STA 


ADRl- 


1 


; MSB of result 



Ook in dit geval wordt bij een overf low- 
conditie de overf low-vlag gezet. 

Blj het vermenigvuldigen moet men zich 
feallseren dat het totaal aantal bits 

gelijk kan worden aan de som van het aan- 
tal bits van in de operanden. Dit wil dus 
zeggen dat bij de vermenigvuldiging van 
twee 8 bits getallen een zestien bits 
getal kan ontstaan. Het vermenigvuldlgea. 
van binaire getallen gaat op dezefde oa- 

nfter als bij deciisale feialleas 

123 
64 
— - — ■ * 

492 

738 
+ 

7872 

le tussenresultaten 492 en 738 heten par- 
tieel product. In het binaire stelsel gaat 



het op dezelfde manier: 

0111 
0101 



0111 
0000 
0111 

+ 

0100011 

Het algorithme is eenvoudig: is het bit 
dat men onder behandeling heeft een 1, daxi 
1$ het partieel product de eerste operand, 
is dit hit 0, dan is het partieel product 
nul. Een zeer fraai (en snel) algorithme 
voor de vermenigvuldiging van twee 8 bits 
getallen staat bes6liLire^)«!a tn hMt. boekl 

Programming the 6502 

van Rodnay Zaks: Het product wordt met 
nullen gevuld. Bij iedere vermenigvulding 
wordt het partiele product bij het resul- 
taat opgeteld. Hierbij werkt men steeds op 
het MSB. Aansluitend wordt bet coBiplete 16 
bits resultaat een positife liattMpfeeltlrs 
geschoven. 



MULT 


LDA 


#0 


> 


Initialize result 




STA 


B 


> 


Result LSB 




im 


m 


• 
> 


Loop index 


LOOP 


LSR 


C 


> 


Shift operand 2 




BCC 


NOAD 


J 


Bit set ? 




ADC 


D 


• 

» 


Add operand 1 


NOAD 


ROR 


A 


> 


Shift result 




ROR 


B 


> 


Catch bit in LSB 




1>M 




» 


Decrement index 




BNE 


LOOP 


> 


Ready ? 



De twee operanden staan resp. in de geheu- 
genlocaties D en C. Het resultaat komt in 
de accu (MSB) en in de geheugen-locatie B. 

Helaas kan dit algorithme niet gebruikt 
worden voor negatieve getallen. Bij nega- 
tieve getallen moet men net zo handelen 
als bij de decimale vermenigvuldiging: 
eerst de oper4i4Mt^f ®#lf4«f 'liiiteii, is %isn 
en slechts vam 'ie opexaixdem ffiegatlef , 
dan uoet nen hmt feaultCtff WifiitMf 
maken* 

€Mk het deXen M,-pat heel veel Of een deci- 
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male deling: 



12 /7423\ 618 
72 

22 
12 

103 



Binair: 



0011 / 1001 101 1\ 00011011 
11 

11 
11 

1 
0 

10 
0 



II 

101 

11 

10 

Ofk dit algorithme werkt bel«as aJtet voor 
negtieve getallen. Uit 

Programming the 6502 

komt de volgende routine: 



DIV 


LDY 
SEC 


#8 


> 


Loop index 




SBC 


D 


• 

> 


Trek de deler -af ■ 


LOOP 


PHP 




> 


Onthoud de vla^en 




ROL 


Q 


• 
> 


Schulf het result aat 




ASL 


B 


• 

• » 


LSB 




ROL 


A 


> 


Schulf tussenres. 




PLP 




i 


Haal vlaggen 




BCC 


ADD 




B&l«r groter ? 




SBC 


D 


• 
> 


ISme, trek af 
volgend bit 




JMP 


NEXT 




mn 


ADC 


D 


> 


Tel deler op 


NEXT 


DEY 
BNE 


LOOP 


i 


Verlaag index 




ICS 


LAST 


I 


Laatste bew« OK 




j|DC 


D 


i 


Tel deler 




CLC 






LAST 


ROL 


Q 


• 

* 


Corrigeer rest 




BRK 






einde 



resultaat (quotient) komt in de accu en in 
B terecht. De deler staat in D. Q wordt 
gebruikt voor de tussenresultaten. Boven- 
dien bevat Q, na afloop, de rest van de 
deling « 

De getoonde routine werkt niet helemaal 
zoals in de getoonde staartdeling* Als een 
bit in Iret tftiotient nul wordt j #ordt er 
bij de volgende bewerking niet afgetrokken 
maar opgeteld. Hiermee wordt net zolang 
doorgegaan totdat het tussenresultaat weer 
een carry geeft. Dit betekent dat het 
actuele bit w«er Wka.. Is* Al met al een 
leuke puzzle ®K ^i^li&p^ekeu oi het echt 
klopt. Als aanwijzing voor de puzzeladts 
nog dat een schuif operatie vermenigvul- 
digen met 2 (links) of delen door 2 in- 
houdt. Ik ben ervan overtuigd dat de rou- 
tine correct is. 

SaaenTatting . 

Meestal werkt een microprocessor met ge- 
hele getallen van zestien bits. Bij de 
modeme zestien 1>its processoren wor<dt ook 
wel gewerkt met gehele getallen van 32 
bits. Een zestien bits geheel getal wordt 
een INTEGER2 of een SHORT genoemd, een 32 
bits geheel getal een INTEGER4 of een 
LONG. 

Mle microprocessbt-s werken met de binaire 
notatie van getallen, enkele, waaronder de 
6502, kunnen bovendien met BCD-notatie 
wetrken . 

3Bi§ gehele getallen zijn op een computer 
onder te verdelen in UNSIGNED getallen die 
alle bits voor het positieve getal kunnen 
gebruiken en in SIGNED getallen waarbij 
ook de negatieve getallen geimplementeerd 
zijn. Voor de SIGNED gehele getallen ge- 
bruiken bij mijn weten alle microproces- 
sors de 2^s complement notatie. 

In deel 2. 

In deel twee van deze serie worden de 
floating point getallen behandeld. Hierbij 
wordt de IEEE (aai tripl* ie) -definitie 
als voorbeeld gebruikt. De In dit deel 
genoemde signed magnitude en excess nota- 
tie voor negatieve getallen zullen dan 
we^f ''Mm. 41 Mte .lUiiiia* 

Als er niets mis f a^t, tal deel twee ge- 
plaatst worden in het decembexmtiMiiec '■m^ 
de 6502 Kenner. 



In deze routine staat het deeltal in de 
Accu (MSB) en de locatie 1 (LIB). Qok het 
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1 
2 
3 
4 
5 
6 
7 
t 
t 

10 
11 
12 
13 
14 
15 
16 
17 

18 
19 

20 

ii 

21 
23 
24 



27 

28 

29 

30 

31. 

32 

33 

34 

35 

3€ 

31 

38 

39 

40 

41 

42 

43 

44 

*i 

46 

47 

m 



m 

51 

53 
54 
55 
56 
57 
58 
59 
60 



.*************************************************************** 

* 



;* 



;* 

;* 
.* 

J* 
• * 



D£MO V.1.88 a Pemdsstratlon Video Game for the DOS65 System 



Written by A.G.Megens 

Haringvliet 371 
8032 HK Zwolle 



June 1988 

phone: 038-537073 



This program shows how to use the GAME library files 
Feel free to change this program as much as you want, some 
routines definitly can use some improvements! 
e.g. add an instrument panel on the screen with alltitude, 
fuel and bombs left etc. etc. 



it 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 



ttl 

ORG 



LIB 



mrnm wm 



START 



TITLE 



MEJ9U 



LDA 
SXA 
STA 
STA 

JSR 
JSR 
fee 
fee 
fee 
fee 
fee 
fee 
JSR 
JSR 
fee 
fee 

fee 

js:r 
sm 

fee 
fee 
fee 
fee 
fee 
JSR 
JSR 
AND 
CMP 
BNE 
JSR 
JMP 



nog en 

"tp.DH^ V.1.88 for DOS65 

85 

$5000 



%s 



page %02 



#3 
RND 

RMD+2 

CLS 
PRINT 

TAB, TAB, TAB, 'D 
TAB, TAB, TAB,' 

TAB, TAB, TAB," 
TAB, TAB, TAB,' 
TAB, TAB, TAB,' 
TAB, TAB, TAB,' 
INVERS 
PRINT 



;Ju8ip table and variables 
;miniiraffii boob distance 

;(incre^€ it to liake the game more diffieult) 
;(do not malce it less than 2 for a bomb is 2) 
; (characters in height) 

;init Random Number Generator 
;(lib. file RANDOM .MAC) 



;clear screen (lib. file SCREEN.MAC) 
;print title screen 
EMONSTRATION'.CR 
GAM E',CR 
U S I N G',CR 
T H E',CR 
GAME' ,CR 
L I B R A R Y',CR,0 
; inverse vl4e«» C2^il».flle SIBMN.MAC) 



fm 50865 l^f li«Megens 



CR,CR,0 
NORMAL 
PRINT 
ESC.'il 
TAB, ESC 
TAB, ESC 
TAB, ESC 
TAB, ESC 
miAlL£ 

#%01011 

//'I' 

DKEY 

INSTRUC 

TITLE 



;normal video (lib. file SCREEN.MAC) 

; print menu 
' ,ESC,'nnstructions' 
,'iC',ESC,'nloek speed' 
,'iD' ,ESC,'nef ine keys' 
,'iS' ,ESC,'ntart game' 
,'lR',ESC,'neturn to DOS',CR,CR,0 

;show high scores table (lib. file SCORE. MAC) 

;wait for key (Itb.file KEY .MAC) 
111 ;make uppercase 



;show instructions 
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003 — Coim«si3r 



m 
li 

ii 

'00' 

69 

7® 
71 
72 
73 
» 
?5 
76 
77 
78 
79 
80 



83 
84 
85 
86 
87 
iS 
89 
90 
91 
92 

m 
94 
95 



DKEY 



SKEY 



CMP 
BNE 
JSR 

CMP 
BNE 
JSR 
JSR 
JMP 



RKEY 



STA 
LDA 
STA 
WA 
STA 
JMP 
CMP 
BNE 
JMP 



#'D' 

CKEY 

DEFINE 

TITLE 

#'C' 

SKEY 

CLOCK 

RTITLE 

TITLE 

#'S' 

SKEY 

#100 

PAUSE 

#1 

ROUND 
#3 

LIVES 

SGAME 

#'R' 

MENU 

DOS 



; define new keys (lib. file KEY .MAC) 



; clock speed (lib .file SfS«.llAS| 



; initial speed 



; start game 



; ignore other keys 

;reta*0 to D0S65 (lib. file ENDGAME. MAC) 



entry for next round 



NEXT 
WCONT 



JSR 
fee 
JSR 
JSR 
CMP 
BNE 
JMP 
CMP 



PRINT 

$14,25,l,'Pres8 space-bar to continue ',BELL,0 

WAIT ;wait loop (lib .file WAIT .MAC) 

imm 

QUIT 

l.f 

TITLE 



JSR 

fee 



WCONT 
PRINT 
$14,25,1,' 



,0 



; game starts here 




CLS 

IK?ERS 
PRINT 
$14,1,25, 
'Time: 

0 

NORMAL 

#0 

GEAROUT 

LANDF 

BOMBY.X 

#10 

CLRBOMB 

UPDATE 

#1 

PLAMX 

PLANEY 
BDIST 
DRPLANE 
DRSURF 



Score: 0 HigiL score: 



; clear bombs 



;update GAME status line 
; start position of plane 



;draw surface 
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1 


MATNT 




rniTMT 


1 7 S 






TNTPIIT 

X ilX U X 


1 9fi 






nMATN 


1 9 7 






1 f 
X • X 
















ft «i 


1 ^f) 
J. 




ITIA 


W X 


1 1 




qxA 


R'nT<?T 

DUJLD X 


1 7 


1 

Si 


«J Da 


U IXIjyJ 1:10 O 


133 




JSR 


drplane 

U1\X Xj£U.1U 


1 j*f 




*J Q JV 


UATT 

WAX x 


135 




JSR 


ERPLANE 


136 




JSR 


ERBOMBS 


x^ / 






MVPT ANF 


X 




J3FXX 




X J 7 






NYTRND 


1 An 






MVRnMRc; 

ilV Dv/rXJDO 


XH X 






MATNT 


1 ^7 

1 H Z. 


nMATM 

WLlflX Li 


TMP 


TTTT F 


1 AT 

X H J 




T nA 




X 

IAS 








lM 

X*tO 






#1 

It X 


1 A7 

X H / 








1 Afi 




STA 


ROUND 


1 AQ 

X H 7 




lha 


•JE-'MrMw'SI 


1 SO 




SEC 




1 SI 






#10 


152 




CMP 


#20 


1 S3 

X J J 




RCS 


I .f 


ISA 




LDA 


#20 


i JJ 


1 


STA 


PAUSE 


1 SA 
X JO 




JMP 


NEXT 




CRASHED 


JSR 


EXPLODE 


I3o 




DEC 


LIVES 


1 SQ 




BEQ 


COVER 


1 An 




JMP 


NEXT 


XO X 
1 <i9 


COVER 


JMP 


ENDGAME 


ioz 








1 


; Routine for FIRE key 


1 AA 








IAS 
X D J 


DROPS 


DEC 


BDIST 


1 AA 
X DO 




BNi 


FEX 


1 A7 
X D / 




U3A 


PREVKEY 


X o o 




C3^ 


FIRE 


169 




BIQ 


5.f 






IM 


#0 


171 

X / X 


FIXlOP 


LDA 


BOMBY,X 


1 79 




BNE 


l.f 


1 7"^ 




LDA 


#12 


1 7A 




STA 


ASAV 






LDA 


PLANEX 


1 7A 
i / D 




JSR 


OFFSET 


1 77 




CMP 


#79 


178 




BEQ 


3.f 


179 




STA 


BOMBX.X 


180 




LDA 


PLANEY 


181 




CLC 




182 




ADC 


#4 


183 




CMP 


#23 


184 




BCS 


3.f 


185 




STA 


BOMBY,X 


186 


3 


LDA 


#RBDIST 


117 




STA 


BDIST 



; check user input 

;QUIT key depressed, return to title 
Ja key was depressed 
;else deer, bomb distance 
;asaA esmtisme il OO 
•else reset it to 1 

;draw bombs 
;draw plane 
;slow down 

; erase plane 
; erase bombs 
;move plane 
;it crashed! 
lidded! 

;move bombs and check for hits 

;QUIT to title screen 
;goto next round 

; decimal number! 



|£sster tMs time 



;the Turkey crashed! 
;get one of his lives 
;well that's it, he's out 
;give it another go 

;did he at least improve th# Wgi #e®re? 



; previous bomb far enough? 

;no, ignore FIRE key 

;get previous key 

;has FIRE key been released? 

;no, then Ignore FIRE key 

;room in table? 

;try next 



; there is room, put coordinates in table 



|t«o far Eight to drop hm^ 



;too loir for another toftb 



; reset bomb distance 
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188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
1^8 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 



241 
242 
243 

%m- 

245 
246 
247 
248 

249 



RTS 
INX 
CPX 



5 

PEX 



IDA 

STA 

LDA 
RTS 



#10 

FLOOP 

#1 

BDIST 
#0 



; place for 10 bombs in table 



routine for GEAR key 

MGEAR LDA GEAROUT 

EGR #$FF 

STA GEAROUT 

LDA #0 



routine for LAND key 
LANDIT 



LDA 
STA 
RTS 



#1 
LANBF 



Game dependant routine, copied from IBHItM.MAC file 
then changed to match this game 



214 


SHWKEY JSR 


PRINT 


215 


fee 




216 


LDA 


FIRE 


217 


JSR 


SPECIAL 


218 


JSR 


PRINT 


219 


fee 


ESC,'n ^ 


220 


fee 


$14,25, gear 


221 


LDA 


GEAR 




JSR 


SPECIAL 


223 


JSR 


PRINT 


224 


fee 


ESC,'n 


225 


fee 


$14,25 ,-1* f'%ami plaoe * . . . 


226 


LDA 


LAND 


2if 


JSR 


SPECIAL 


228 


JSR 


PRINT 


229 


fee 


ESC,'n 

$14, 25, 16, 'Quit to main menu 


230 


fee 


231 


LDA 


QUIT 


232 


JSH 


SPECIAL 


233 


JSR 


PRINT 


234 


fee 


ESC.'n 

$14,25,18, 'Halt/Pause key . . . 


235 


fee 


236 


LDA 


HALTKEY 


237 


JSR 


SPECIAL 


238 


JSR 


PRINT 


239 


let 


iSCj'n ',0 


240 


lis 



,ESC,'1',0 



Game dependant routine, copied from INSTRUC.MAC file 
then changed to match this game 



INSTRUC JSR 
JSR 
fee 
fee 

e FIRE',CR 
fee 
fee 



CLS 
PRINT 

'Bomb the surface to get if flat enough for your landing. ',CR 
'The bomb reload mechanism takes some time to reload, so if th 

'key is not responding, the next bomb is not loaded yet!',CR 
"The mechanism gets jammed if you do not release the FIRE key. 
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251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
2!f7 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
2f6 
297 
298 
299 
300 



fee 
JSR 

RTITLE JSR 
RTS 



'The following ecaitarol keys can be used J ",0 

SHWKEY 

WFUSER 



ORSURF Draw random surface, helgth depends on 



9 




curretiL ixuujNU • 


> 

r\T>CTTDT? 

UkoUJvc 


TCD 






m% 


#1 


1 
I 


o i A 


AoAV 




T n A 


pnTTxrn 










AUKj 


ff J 




CPA 


AC AV 
AOAV 




T<!P 






aaU 








If J 






A c; AU 




Tip C 






CT A 


AC AV 










CT7P 








rio A V 




LDX 


XSAV 




STA 


SURF ACE, X 
#14 




STY 


YPOS 




STX 


XPOS 


3 


JSR 


GOTOXY 




JSR 


PRINT 




fee 


' '.0 




DEC 


YPOS 




DEC 


mm 




BNE 


3.b 




INX 






CPX 


#80 




BNE 


l.b 




JSR 


mmKL 




&fS> 





;draw inverse spaces 

;get current round 

;and add an offset of 5 

;get me a number, any number! 

; throw away some bits 

;add 3 (to get rid of NULL) 

;it is still small enough? 

;no, this one is garbage, try again 

jperfectl, use it to draw one heigth 

; starting at line 24 

;and up the computed height 

;also store it for crash checking 
imm draw the little bugger 



;goto X,24 

;and print one (inverted) space 

;go up one line 

;decr. height counter 

; still not there, keep going 

;ok, we're done, goto next heigth 

; complete bottom line done? 

;(sigh) not yet, do it again 

;hey It worked, just re04lt vtie© 

;and we're donel 



Draw plane (gear Is optional) 



X Y 

0113456 7890123456789012 

"\ n — \ — \ 




302 


DRPLASE LDX 


PLANEX 


303 


LDY 


PLANEY 


304 


STX 


XPOS 


305 


STY 


YPOS 


306 


IJ3X 


#3 


307 


JSR 


PLOT 


308 


LDA 


GEAROUT 


309 


BEQ 


l.f 


310 


LDA 


PLANEY 


311 


CLC 




312 


ADC 


#3 


313 


STA 


YPOS 



;put cursor i^ere the plane is 



;plane sprite Is number 3 in SORT table 
;plot it 

; check if gear Is out 
;no, then we're done 
; compute position of gear 
;3 lines 4#w» 
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314 LDA #14 ;and 14 char, in X-direction 

315 STA ASAV 

316 LDA PLANEX 

317 JSR OffSlt ;ciwpute X <witb wtmp around) 

318 STA XPOS ;got It 

319 LDX #4 ;gear sprite is number 4 

320 JSR PLOT ;plot it 

321 1 RTS 

322 ; 

323 ; Erase plane,, siiailar routine except ve call ERASE here 

3 24 *' 

325 EKfLANE LDX PLANEX 

326 LDY PLANEY 

327 SIX XPOS 

328 STY YPOS 

329 LDX #3 

330 JSR ERASE 

331 IDA GEAROUT ; check if gear is out 

332 BEQ l.f ;no, then we're done 

333 LDA PLANEY 

334 CLC 

335 ADC #3 

336 STA YPOS 

337 LDA //14 

338 STA ASAV 

339 LDA PLANEX ;else erase that too 

340 JSR OFFSET 

341 STA MOS 

342 LDX #4 ;gear sprite 

343 JSR ERASE 

344 1 RTS 

345 ; 

346 ; Let plane explode (show 3 explosion sprites at plane position) 

347 ; 

348 mmj&m lba pause 

349 STA PSAV 

350 LDA #0 

351 STA PAUSE 

352 LDX PLANEX ;put cursor where the plane is 

353 LDY PLANEY 

354 STX XPOS 

355 STY YPOS 

356 LDX #0 ; explosion sprite 1 

357 JSR PLOT ;plot it 

358 JSR WAIT 

359 i& ;put cursor where the plane is 

360 UDf PLANEY 

361 STX XPOS 

362 STY YPOS 

363 LDX #1 ; explosion sprite 2 

364 JSR PLOT ;plot it 

365 JM WAIT 

366 LDX PLANEX ;put cursor where the plmm^ Is 

367 LDY PLANEY 

368 STX XPOS 

369 STY YPOS 

37t LDX #2 ; explosion sprite 3 

371 JSR PLOT ;plot it 

372 JSR WAIT 

373 LDX PLANEX ;put cursor where the plane is 

374 LDY PLANEY 

375 STX XPOS 

376 STY YPOS 

W7 IDX #2 ; explosion sprite 3 
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378 




JSR 


ERASE 


; erase it 


379 




IDA 


PSAV 




380 




SfA 


PAUSE 




381 




RTS 






382 










383 


; Draw ; 


all bombs 




384 


> 








385 


DRBOMBS 


LDX 


#0 




sm 


1 


SIX 


XSAV 




387 




IDA 


BOMBX,X 




388 




LDY 


BOMBY,X 




389 




BEQ 


DNB 


;no bomb 


390 
391 




mi 

STA 


DREXB 

was 


;bomb is marked for explosion, show 


392 




STY 


YPOS 




393 




LDX 


#5 


;plot bomb 


394 




JSR 


PLOT 




395 


DNB 


LDX 


XSAV 




396 




IM 






397 




CPX 


#10 


;max. 10 bombs at the same time 


3f8 




BNE 


l.b 




399 


3 


RTS 






400 


DREXB 


STA 


XPOS 


;draw explosion 


401 




TYA 






402 




Ain> 


#$7F 


; strip minus sign 


i03 




STA 


YPOS 


404 




LDX 


#6 


; explosion sprite 


405 




JSR 


PLOT 




406 




jm 


DNB 




407 


> 








408 


; Erase 


all 


bombs 




409 


• 

> 








410 


ERBOMBS 


LDX 


fO 




411 


i 


STX 


XSAV 




412 




LDY 


BOMBY,X 




413 




BEQ 


ENB 


;no bomb here 
;bomb is exploded 


414 




BMI 


4.f 


415 




LDA 


BOMBX,X 




416 




STA 


XPOS 




417 




STY 


YPOS 




418 




LDX 


#5 




419 




JSR 


ERASE 




420 


ENB 


LDX 


XSAV 




421 




INX 






422 




CPX 


#10 




423 




BNE 


l.b 




424 


3 


RTS 






425 


4 


TYA 






426 




AND 


#$7F 


; strip ^minus sign 


427 




STA 


Yf©S 


428 




LDA 


BOt£BX»X 




429 




STA 


XPOS 


/ ''1 


430 




LDX 


#6 


; erase explosion sprite 


431 




JSR 


ERASE 




432 




LDX 


XSAV 




433 




LDA 


#Q 


;now disable bomb 


434 




STA 


»QrMBY,X 




435 




BEQ 


ENB 




436 


9 








437 


; Move 


bombs and check for hits 


438 


: (in this game they can 


only hit bottom) 


439 


• 








440 


MVBOMBS 


IDX 


#0 




441 


1 


STX 


XSAV 
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DOS— eis 'Gmwmmir 



H- H- Z. 




T nv 


"DAVfTJV V 








Z .1 


















AAA 




TV A 










DUnbi ,A 


448 




JSR 


BCHECK 


449 




BCC 


2.f 


450 




IDA 


ROUS© 


451 




•JSR 


UPDSCOR 


451 


2 


UOX 


XSAV 


453 




INX 




454 




CPX 


#10 


455 




BNE 


l.b 


456 


3 


RTS 





45S 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
4t9 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 



;no bomb 

; marked for explosion 
;new position 



; check if it hit something 



Check if bomb X hit sometltinig 



BCHEGK LDY 
CPY 
BCS 

NHIT CLC 
RTS 

BHIT LDA 

LDY 
STA 
STA 

mk 

ORA 
STA 
SEC 
RTS 



BOMBY.X 

#23 

BHIT 



#0 

BOMBX,X 

SURF ACE, Y 

SURFACE+1,Y 

BOMBY.X 

#$80 

BOMBY,X 



;get bomb Y coordinate 
;hit bottom? 
;ye«l 
;no hit 

; clear surface where bomb erased it 



ft^glKl'^ll t " explosion enabled 



; Move plane and cheek if it: 

» return value 

; a> landed with gear out A=0, C=0 

; b> landed without gear or crashed to surface A<0, C=l 

; «> airborne with no problems A-0, C-1 

;get X position 
; Increase it 

; reached right edge of screen? 
;no, keep going 
; reached bottom? 

;yes, then test gear 
;else goto next line 
imA left again 

I get f-pos of plane 
;at bottom? 

;yes, don't go lower, test if gear is out 
;is landing requested? 
;no, continue 

;elsm mms plane also down 

%im--wmey 3th call 
^4^gm f « mm line lower 

;i& gear out at bott<» line? 

$mm WytS bsby fly or «^att busy with landing! 
*~ ' a fittkey! 



481 




PLANEX 


482 




INX 




483 




CPX 


#80 


484 




BNE 


l.f 


485 




LDA 


PLANEY 


486 




CliF 


#20 


487 




BEQ 


12. f 


488 




INC 


PLANEY 


489 




LDX 


#1 


490 


1 


SIX 


PLANEX 


491 




LDA 


PLANET 


492 




CMP 


#20 


493 


12 


BEQ 


TSTGEAR 


494 




LDA 


LANDF 


495 




BEQ 


2.f 


496 




LDA 


COUNT 


497 




AND 


#3 


498 




BNE 


2 .f 


499 




INC 


PLANEY 


500 




JMP 


2.f 


501 








502 


TSTGEAR 


LDA 


GEAROUT 


503 




BNE 


LANDED 


504 


CRASH 


LDA 


#-1 


505 




SEC 
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506 
507 
508 
509 

510 
511 
512 
513 
5U 
515 
516 
517 
518 
5 If 
520 
521 
522 
523 
524 



RTS 

LANDED GPX #56 
BCC 2 .f 
CLC 

RTS 



|feae:to^ #nd of runway? (plus length of pl^tne) 
;no, keep rolling (It might still crash) 
;A Hero, he did it! ! 



Check if plane hit surface (places are marked) 
X,Y 



0 
1 
2 
3 
4 



012345678901234567890 

7 ~r /* 



\ 

/ r 



only checked if gear is out) 



N«B. this routine is not perfect, but hey! it's a free game 
improve it by checking complete bottom line 
and all propellor posltloits fm f ti>ntal efash 



525 


> 






526 


2 


LDA 


PLANEY 


527 




CLC 




528 




ADC 


#2 


529 




STA 


YPOS 


530 




LDA 


#21 


•Sii, 




STA 


ASAV 


531 




LDA 


PLANEX 


533 




JSR 


OFFSET 


534 




TAX 




535 




LDA 


SURF ACE, X 


536 




BEQ 


20. f 


537 




CMP 


YPOS 


538 




BCC 


CRASH 


539 


20 


LDA 


PLANEY 


540 




CLC 




541 




ADC 


#3 


542 




STA 


YPOS 


543 




LDA 


#8 


544 




STA 


ASAV 


545 




LDA 


PLANEX 


546 




JSR 


OFFSET 


547 




STA 


XSAV 


548 




LDY 


10 


549 


10 


LDA 


YPOS 


550 




STA 


YSAV 


551 




LDX 


XSAV 


552 




LDA 


SURF ACE, X 


553 




BEQ 


11. f 


554 




CMP 


YSAV 


555 


If 


BCC 


CRASH 


556 




LDA 


#1 


557 




STA 


ASAV 


558 




LDA 


XSAV 


559 




JSR 


OFFSET 


560 


11 


im 




561 




CPY 


#5 


562 




BNE 


10. b 


563 


6 


LDA 


GEAROUT 


564 




BEQ 


3.f 


565 




LDA 


PLANEY 


566 




CLC 




567 




ADC 


#4 


568 




STA 


YPOS 


569 




LDA 


#14 



; check propellor positloa 



; compute offset X,Y 



; check surface height 
;it's bombed away here 
; plane allready lower? 
;yep, it*B & iK«e&! 
; check wing positions 



; compute offset X,Y 



;ws« f #8 mmter ( 5 positiotas to theck) 



; surface gone here 

;is vimi height below surface height? 

jyesj S"*^* a crash! 

jelse goto next wing location 



;use this routine for wrap around 

;all 5 wing locations checked? 
;no, keep going 
;gear is out? 
;no, we're done! 
;4^tm cii@#l that too 

;4 lines 4&mt for wheel 

;and 14 char, in X direction 
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IE) IS 



DOSS— 6iS Gor-rior- 



j/U 


CT A 


A C A17 

AbAV 




■^7 1 
J / i. 


T n A 


PT AWTTY 
IT Jj AiN Ij A 






J OA. 


Ur r DCil 


;for vtHp around 




lAn 




;A-pOS i"r/ 


574 


LDA 


YPOS 


575 


STA 


YSAV 




S7§ 


LDA 


SURFACE ,X 


;get surface heigth there 


577 


BEQ 


3.f 


;allready gone, no problem 
; check wheel height 


578 


(MB 


YSAV 


579 


BCC 


21. b 


;oh, no, I'm afraid It's fatal! 
;hey, what a pilot! 


SSO 3 


LDA 


#0 


581 


SEC 




;no problem 


582 


RTS 





583 
584 
585 
586 
587 
588 
589 
5f0 

m 

5fs: 

596 
597 
598 
599 
600 
601 
602 
i» 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
ill 
ili 

621 

622 
623 
i24 
435 

$'24: 
:it7 

628 
629 
630 
631 

'6;3'2' 

63» 



OFFSET Compute X coordinate with wrap around 
Mlwet is 'im ASAV, A contains start X 
YPOS Is start Y 



OFFSET 



CLC 






ADC 


ASAV 


;add offset 


CMF 


#80 


;wrap around? 


BCC 


2.f 


;no 


SEC 




;else deer. X-pos 


SBC 


#79 


INC 


YPOS 


;and go one line lower 


RXS 





The sprite tables contain the graphic data for all objects 
the data may contain ESC sequences to get the display in the 
right mode first. The "A or <1> at the end of each line causes 
the YfOS pointer to go to tfae nsxt Uaet KDM. marnxm end of data 



SPRITE equ 

EKPLOSl fee 
fee 
fee 

EXPL0S2 fee 
fee 
fee 

EXPL0S3 fee 
fee 
fee 

SPRITE2 equ 

PLANE fee 
fee 
iet: 
fee 



;f Irst sprite table 



' W I / W I / W I /M 
*** - *** - *** I 

' / I W / I W / I \\',o 



/ I vv 
\\t/ 
7|\\ 



-w 
w 
/ / " 



n 



M 
M 

',1 
',1 
',0 

;use SPRITE2 if SPRITE table > 256 bytes 
1 



--Wio'.l 



LGEAR 



fee 
fee 

fee 
fee 



'0' ,0 

'W/M 
'()%0 



fee 
fee 



'W/'.l 
'/\\',o 



EXPLOS 
» 

; contains offset in sprite table(s) 
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us: IS Ksr EST 1^1^ 



DOS — 6>S Coirri«9ir 



634 
635 
636 

m 

638 
639 
640 
641 
642 
643 
f,U 
645 
646 
647 
648 
§49 
650 
651 
652 
653 
654 
655 
656 
657 
658 



SORT fee EXPLOSl-SPRITE 

fCG EXPL0S2-SPRITE 

fee EXPL0S3-SPRITE 

somi fee vwm-smrmi 

fee LGEAR-SPRITE2 

fee B0MBS-SPRITE2 

fee EXPL0S-SPRITE2 



#0 explosion start 
#1 explosion middle 
#2 explosion end 
#3 plane 
#4 landing gear 
#5 landing gear 
#6 explosion bomb 



Variable section 



mmi(ME fee 
HISCORE fee 
fee 
fee 
fee 
fc« 

NAMES fee 
fee 
fee 
fee 
fee 



5,7,9,10,0 

0,5 

0,4 

0,3 

0,2 

0,1 

'DEMO GAME DOS 6 5 ',0 
V.1.88 ',0 
' GAME LIBRARY ',0 
' (c) 1988 ',0 
'DE 6502 KENNERS',0 



; The KEYCODE and KEYSUB tables define the ci»xtrol keys ani their jwibroutines 
: used in INPUT .MAC 







e(ju 


y 


oou 




fee 




OCX 






B 


662 


LAND 


fee 


'1' 


663 


QUIT 


fee 


ESC 


664 


HALTKEY 


fee 


'P' 


665 


KEYEND 


equ 


$ 


666 


KEYSUB 


fdb 


DROFB 


667 




fdb 


MGEAR 


668 




fdb 


LANDIT 


669 




fdb 


QADDR 


670 




fdb 


HADDR 


671 


NDMKEYS 


equ 


KEYEND-KEYCODE 


672 






673 








674 


BDIST 


fee 


0 


675 


PLANEX 


fee 


0 


676 


PLANEY 


fee 


0 


6f8 


GEAROUT 


fee 


0 


t/mw 


fee 


0 


679 


BOMBX 


res 


10,0 


680 


BOMBY 


res 


10,0 


681 


SURFACE 


res 


80,0 


682 








683 




opt 


nolis 


684 








685 




lib 


endgame 


686 




lib 


key 


687 




lib 


seore 


688 




lib 


sereen 


689 




lib 


random 


6fO 




lib 


sysclk 


691 




lib 


wait 


692 




lib 


sprite 


693 








694 




opt 


lis 


695 




end 


START 



; default 

; default 
; default 
; default 



FIRE key 
GEAR key 
LAND key 
QUIT key 
HALT key 



; routine for FIRE key 
;rQUtine for GEAR key 
;routitie foft LAM) key 

; routine for QUIT key (see file KEY .MAC) 
; routine for HALT key (see file KEY .MAC) 



bomb distanee 

X position plane 

Y position plane 

landing gear flag 

landing flag 

X,Y positions bombs 



;st4>re surface height 



;end of game routines 

;key routines 

; seore routines 

;some small screen routines 

; random number generator 

;get system clock utility for WAIT 

;wait loop 

; plot/erase sprite 
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MS — DOS CcDirneir 



Van Micro Ade naar MASM 

Gert van Opbroek 

Ik ben zelf geen MS-DOS man en toch 
schrijf ik nu onder de rubriek MS-DOS 
Corner, hoe is dat toch mogelijk? Mijn 
kennls van de compatibles en MS-DOS is 
zeer beperkt. Ik heb wel eens zo'n machine 
aange raakt en ik het zelf s wel eens een 
commando zoals DIR ingetikt maar daar 
houdt het wel mee op. Waarom dan toch dit 
artikeltje? Om de plannen die ik met de 
6502 Kenner heb duidelijk te maken. 

Wat is er aan de hand? Binnen het bestuur 
zijn we tot de conclusie gekomen dat onze 
club niet nog vele jaren van alleen de 
6502 kan bestaan. Daarom is nu het moment 
aangekomen dat we alle types processoren 
binnen de club welkom heten. De achter- 
gronden hebben we in nummer 57 uitgelegd. 
Deze wijziging wordt op de ledenvergade- 
ring in Almelo aan de leden voorgelegd. 

Als redactie lopen we al vast vooruit op 
de hopelijk gunstige beslissing van de 
leden. Ik denk dat het goed is, alvast 
ruimte in de 6502 Kenner in te ruimen voor 
MS-DOS, bij deze dus. Veder denk ik dat 
het goed is uit te leggen welke kant de 
redactie uit wil gaan met de MS-DOS 
Corner . 

De wortels van de club liggen in de Indus- 
trie. De club is opgericht door een aantal 
enthousiaste mensen die bij hun werkgever 
de KIM hadden leren kennen. Om de kennis 
over dit systeem verder te verspreiden, is 
de Kim Gebruikersclub Nederland opgericht. 
Door de jaren been, hebben de leden zich 
vooral bezig gehouden met zelfbouw van 

systemen (Junior, EC-65, DOS-65 ), 

met extra hardware (Eprommer) en met het 
programmeren in assembler. De laatste tijd 
zijn daar het programmeren in hogere pro- 
grammeertalen (Basic, Forth en C) en de 
algemene artikelen over computerkunde bij- 
gekomen. Welnu al deze zaken kunnen we ook 
voor andere systemen dan voor bijvoorbeeld 
DOS-65 gaan doen. Ik denk dat, vooral voor 
MS-DOS, hiervoor mogell jkheden te over 
zijn. 

Zelfbouw 

Het zelfbouwen van een PC is weliswaar 
mogelijk maar ik denk niet dat veel leden 
hier het geld voor over hebben. Voor men- 
sen die hier wel oren naar hebben verwijs 
ik naar het project van het duitse blad MC 
waar men een complete, modulaire AT rond 
een 80286 of 80386 heeft opgebouwd. Dit 
systeem kan men als bouwpakket kopen. 



Inlichtingen hierover kan men bij de re- 
dactie krijgen. 

Wat waarschi jnli jk wel aantrekkeli jk is, 
zijn zelf bouw-uitbreidingskaarten. Ook 
hiervoor zijn er in MC al voorbeelden te 
vinden, bijvoorbeeld in het oktobernummer 
een kaart met 32 input- en 32 outputlijnen 
verder bijvoorbeeld ADC- en DAC-kaarten, 
eprommers of epromkaarten. Ik heb zelfs al 
opgevangen dat er mogeli jkheden zijn een 
elektuurbus te koppelen aan de uitbrei- 
dingsslots van een PC. Indien er interesse 
bestaat, laat het ons even weten. 

Wat ook wel gedaan wordt, is de PC gebrui- 
ken als ont wikkelmachine voor single board 
computers. Men gaat soms zelfs zo ver dat 
deze single board computer een transputer 
bevat. U ziet dus, mogeli jkheden te over. 
Programme ring . 

Zoals in een vorige paragraaf al aange- 
haald is, zijn we als club begonnen met 
het programmeren in assembler. Waarom 
zouden we dat niet ook voor een PC doen? 
Er bestaan assemblers voor de PC en waarom 
zullen we ons als club daar niet uitge- 
breid mee bezig gaan houden? Ook hogere 
programmeertalen zijn interessant waarbij 
ik vooral denk aan het zogenaamde machine- 
nabij programmeren. Ik weet wel dat er 
voor de PC al een hoop bestaat, maar vaak 
wil je toch net even lets anders als ande- 
ren . 

Kennls. 

Verder kunnen we ons als club bezig gaan 
houden met de uitwisseling van basiskennis 
over de systemen. Zelf heb ik door mijn 
opleiding en interesses een brede belang- 
stelling voor alles wat met computers te 
maken heeft. Ik tracht de kennis die ik 
opgedaan heb een beetje te verspreiden 
door het schrijven van artikeltjes over 
algemene zaken, anderen kunnen misschien 
een bijdrage leveren door over specifiek 
de 8088 of MS-DOS te schrijven. Ik zou 
graag eens in de 6502 Kenner willen lezen 
hoe MS-DOS nu werkelijk in elkaar zit en 
wat de functie van de BIOS is. Ik heb met 
Nico de Vries afgesproken dat hij de spits 
af zal bijten met een artikel over de 
8088. 

U ziet, er zijn genoeg mogeli jkheden, ik 
zoek nu alleen nog een redacteur voor de 
MS-DOS Corner. Misschien lets voor U? 

NB. Ik zal nooit meer, zoals in nr. 57, 
schrijven dat de PC van de Z80 af- 
stamt. Uit deze misser kunt u aflezen 
dat ik echt een PC-onbenul ben. 
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TECHNITRON TLP-12 LASER PRINTER 

- UHEEFTEIGENUJKGEENANDEREKEUZE! 




■ 12 pagina's per minuut (max.) 

■ tot 10.000 afdrukken per maand 

■ 8 ingebouwde lettertypes; 
32 afdruk-combinaties 

■ unieke "FontMaker" service 



■ unieke "FormsMaker", 
formulier- en logo service 

■ 3 ingebouwde hardware- 
emulaties 

■ flexibele in- en uitvoer van papier 
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